在VBA中比较具有多个列的两个不同大小的表

Sub CompareTables()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
    Dim matchFound As Boolean
    
    ' 设置要比较的两个表
    Set ws1 = ThisWorkbook.Worksheets("表1")
    Set ws2 = ThisWorkbook.Worksheets("表2")
    
    ' 获取两个表的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历表1的每一行
    For i = 2 To lastRow1
        matchFound = False
        
        ' 循环遍历表2的每一行
        For j = 2 To lastRow2
            ' 比较两个表的多个列
            If ws1.Cells(i, 1).Value = ws2.Cells(j, 1).Value And _
               ws1.Cells(i, 2).Value = ws2.Cells(j, 2).Value And _
               ws1.Cells(i, 3).Value = ws2.Cells(j, 3).Value Then
               
                ' 如果找到匹配，标记为True并退出内部循环
                matchFound = True
                Exit For
            End If
        Next j
        
        ' 根据匹配结果进行处理
        If matchFound Then
            ' 执行匹配成功的操作
            ' ...
        Else
            ' 执行匹配失败的操作
            ' ...
        End If
    Next i
End Sub