2016-11-30 35 views
-3

我想複製一行到另一頁(表單4),當列Z中有一個大寫字母X和另一行時a小寫字母x存在於同一列中。從而自動將兩行都複製到sheet4。Excel VBA代碼複製一行,如果一列中的大寫或小寫字母到下一頁

爲了進一步解釋

我需要的VBA代碼在整個電流片拿起兩封信,在短短列以Z

感謝

+1

「我需要的代碼」不是一個問題!請至少閱讀整個[旅遊網頁](http://stackoverflow.com/tour)以瞭解如何使用本網站! – aschipfl

回答

0

像這樣的事情shoudl做到這一點。

Sub CopyData() 
Dim Rng As Range, cell As Range 
Dim rw As Long 
Set Rng = Worksheets("Sheet1").Range("Z:Z") 
rw = 1 
For Each cell In Rng 
If LCase(cell.Value) = "X" Then 
Worksheets("Sheet2").Cells(rw, "A") = cell.Offset(0, -1) 
rw = rw + 1 
End If 
Next 
End Sub 

不過,我不知道這意味着什麼: 「當另一行較低的情況下,x是出現在同一列中。」

什麼是邏輯?

相關問題