Question

想用VBA实现：找到Sheet1的第一行等于“当前状态”列，将整列复制到Sheet2,请问代码怎么写呢？

Answer 1

Sub iCopy()
Dim c As Range
Set c = Worksheets("sheet1").Rows(1).Find("当前状态", , xlValues, xlWhole)
If Not c Is Nothing Then
c.EntireColumn.Copy Worksheets("sheet2").Range("a1")
End If
End Sub

Answer 2

If Not Worksheets(1).Rows(1).Find("当前状态", lookat:=xlWhole) Is Nothing Then
Worksheets(1).Rows(1).Find("当前状态", lookat:=xlWhole).EntireColumn.Copy Worksheets(2).Range("a1")
End If

追问

无法运行啊，老大

追答

提示什么错误啊？