[英]Copy and paste based on criteria
我正在嘗試在工作簿中編寫腳本,該腳本將檢查第10行中的單獨工作表(“工作表2”)的值(“是”)-請參閱工作表2的B列
如果返回的是,我想復制同一列(在本例中為B4)的第4行中的單元格,並將其粘貼到從第2行開始的B列的“工作表1”中-請參見工作表1的B列
然后,我希望它檢查接下來的100行以獲取相同的信息,並將第10行中包含的所有第4行單元格粘貼到“工作表1-B行”中。 這是我目前擁有的:
Sub CommandButton1_Click()
Dim lr As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row
For Each Sheets("Option 2").Cell In Range("B10:CZ10")
If Cell.Value = Range("Yes").Value Then
Worksheets("Option 2").Cell.Range(B4).Copy Range("B")
Exit Sub
End If
Next Cell
Worksheets("Option 2").Range("B5:CW10").Copy Range("B")
Range("B" & lr + 1).PasteSpecial Paste:=xlPasteValues
End Sub
抱歉,這是寫得很糟。 我是VBA的新手,沒有太多指導。 任何幫助將不勝感激!
也許這就是您要嘗試的。
Sub CommandButton1_Click()
Dim lr As Long, rng as range
lr = Cells(Rows.Count, "B").End(xlUp).Row
For Each rng In Sheets("Option 2").Range("B10:CZ10")
If lcase(rng.Value) = "yes" Then
lr = lr+1
cells(lr, "B") = rng.offset(-6, 0).value
End If
Next rng
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.