Excel VBA比较两个工作簿中的值，然后复制数据

Sub CompareAndCopyData()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim cell1 As Range
    Dim cell2 As Range
    
    ' 打开第一个工作簿
    Set wb1 = Workbooks.Open("路径\工作簿1.xlsx")
    ' 打开第二个工作簿
    Set wb2 = Workbooks.Open("路径\工作簿2.xlsx")
    
    ' 引用第一个工作簿中的第一个工作表
    Set ws1 = wb1.Worksheets(1)
    ' 引用第二个工作簿中的第一个工作表
    Set ws2 = wb2.Worksheets(1)
    
    ' 遍历第一个工作表中的所有单元格
    For Each cell1 In ws1.UsedRange
        ' 遍历第二个工作表中的所有单元格
        For Each cell2 In ws2.UsedRange
            ' 比较两个单元格的值
            If cell1.Value = cell2.Value Then
                ' 复制数据到第一个工作簿中
                cell2.Copy cell1
            End If
        Next cell2
    Next cell1
    
    ' 关闭工作簿，保存更改
    wb1.Close SaveChanges:=True
    wb2.Close SaveChanges:=True
End Sub