我正在尝试在我的电子表格中搜索特定列,如果第一行有值,那么我会复制整个列并将其粘贴到另一张表。以下是我到目前为止的情况:
Sub Test()
Dim lastRow As Integer
lastRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
For Each Cell In Sheets("Sheet2").Range("A1:W1")
If Cell.Value = "IX_OCN" Then
' TODO
End If
Next
End Sub
我不确定在if循环中放入什么来复制整个列然后粘贴。任何帮助非常感谢!