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

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的宏语言。它可以帮助用户自动化处理数据、创建自定义函数和过程等。

在比较两个工作表中的行并添加缺少的数据时，可以使用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

这段代码会比较两个工作表中的第一列数据，并将在第一个工作表中存在但在第二个工作表中缺失的行数据添加到第二个工作表的末尾。你可以根据实际情况修改代码来适应其他列的比较和添加。