VBA用于比较两个工作表，如果行中的某些列不同，则复制它们

Sub CompareAndCopy()
    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.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取两个工作表的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历第一个工作表的每一行
    For i = 1 To lastRow1
        foundMatch = False
        
        ' 循环遍历第二个工作表的每一行
        For j = 1 To lastRow2
            ' 比较两个工作表中的行数据
            If ws1.Cells(i, "A").Value = ws2.Cells(j, "A").Value And _
               ws1.Cells(i, "B").Value = ws2.Cells(j, "B").Value And _
               ws1.Cells(i, "C").Value = ws2.Cells(j, "C").Value Then
               
                foundMatch = True
                Exit For
            End If
        Next j
        
        ' 如果在第二个工作表中找不到匹配的行，则复制当前行到第二个工作表的下一行
        If Not foundMatch Then
            ws1.Rows(i).Copy ws2.Cells(lastRow2 + 1, 1)
            lastRow2 = lastRow2 + 1
        End If
    Next i
    
    MsgBox "比较并复制完成！"
End Sub