我正在尝试在工作簿中编写脚本,该脚本将检查第10行中的单独工作表(“工作表2”)的值(“是”)-请参见工作表2的B列
如果返回的是,我想复制同一列(在本例中为B4)的第4行中的单元格,并将其粘贴到B列中从第2行开始的“工作表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
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句