在另一本书中搜索VBA Excel

Question

我想在另一本书中搜索之前在Excel上选择的一系列单元格。

我在Excel的其他书上列有ID和名称。我想选择一个列表o单元格，搜索另一个excel并粘贴在列I上的一系列单元格中搜索的de cell。

示例：

搜索A1，A2，A3并粘贴在I1，I2，I3上。

     Sub Macro1()
Workbooks.Open Filename:="root....Libro3.xlsx"
Sheets("Hoja1").Select
Cells.Find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlValues, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
Range(Selection.Offset(0, 1), Selection.Offset(0, 1)).Copy
ActiveWindow.Close SaveChanges:=False
ActiveSheet.Paste Destination:=[A5]
 End Sub

我试过这个，但只是为一个专栏工作。