还是原来的对,后改的有错误。
Sub TEST()
On Error Resume Next
Set WBook = Workbooks("工作簿2.xls")
If WBook Is Nothing Then Workbooks.Open (ThisWorkbook.Path & "\工作簿2.xls")
Set WBook = Workbooks("工作簿2.xls").Sheets(1)
ARR = WBook.Range("A4:A" & WBook.Range("A65536").End(3).Row)
With ThisWorkbook.Sheets(1)
For I = 1 To UBound(ARR)
If ARR(I, 1) = .Range("G2") Then
WBook.Range("A" & I + 4 & ":B" & I + 53).Copy .Range("G3")
Exit For
End If
Next
ThisWorkbook.Activate
End With
End Sub
噢,一个变量名称忘了修改:
Sub TEST()
On Error Resume Next
Set WBook = Workbooks("工作簿2.xls")
If WBook Is Nothing Then Workbooks.Open (ThisWorkbook.Path & "\工作簿2.xls")
Set sh = Workbooks("工作簿2.xls").Sheets(1)
ARR = sh.Range("A4:A" & sh.Range("A65536").End(3).Row)
With ThisWorkbook.Sheets(1)
For I = 1 To UBound(ARR)
If ARR(I, 1) = .Range("G2") Then
sh.Range("A" & I + 4 & ":B" & I + 53).Copy .Range("G3")
Exit For
End If
Next
ThisWorkbook.Activate
End With
End Sub