VBA比较两个工作表中的行并添加缺少的数据

Sub CompareAndAddData()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
    Dim foundMatch As Boolean
    
    ' 设置要比较的两个工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取两个工作表的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历第一个工作表的每一行
    For i = 2 To lastRow1 ' 假设第一行是标题行，从第二行开始比较
        foundMatch = False ' 初始化标志位
        
        ' 循环遍历第二个工作表的每一行
        For j = 2 To lastRow2
            ' 比较两个工作表中的行数据
            If ws1.Cells(i, "A").Value = ws2.Cells(j, "A").Value Then
                foundMatch = True ' 找到匹配的行
                Exit For ' 退出内层循环
            End If
        Next j
        
        ' 如果在第二个工作表中没有找到匹配的行，则将该行数据添加到第二个工作表的末尾
        If Not foundMatch Then
            ws2.Cells(lastRow2 + 1, "A").Value = ws1.Cells(i, "A").Value
            ' 可以根据实际情况添加其他列的数据
            ' ws2.Cells(lastRow2 + 1, "B").Value = ws1.Cells(i, "B").Value
            ' ...
            lastRow2 = lastRow2 + 1 ' 更新最后一行的值
        End If
    Next i
    
    MsgBox "比较并添加数据完成！"
End Sub