Excel VBA以匹配来自两个不同工作簿中两列的行数据并复制数据

Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = Workbooks.Open("路径\工作簿1.xlsx")
Set wb2 = Workbooks.Open("路径\工作簿2.xlsx")

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = wb1.Worksheets("工作表1")
Set ws2 = wb2.Worksheets("工作表2")

Dim cell As Range
Dim matchRow As Range

For Each cell In ws1.Range("A1:A" & ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row)
    Set matchRow = ws2.Range("A:A").Find(cell.Value)
    
    If Not matchRow Is Nothing Then
        ' 复制数据到目标工作表
        ws1.Rows(cell.Row).Copy ws2.Rows(matchRow.Row)
    End If
Next cell

wb1.Close SaveChanges:=False
wb2.Close SaveChanges:=False

Set ws1 = Nothing
Set ws2 = Nothing
Set wb1 = Nothing
Set wb2 = Nothing