vba 对比两张表的值是否相等

您可以使用VBA代码来对比两张表的值是否相等。下面是一个示例代码，可以比较两个表中的值是否相等：

Sub CompareTables()
    Dim table1 As ListObject
    Dim table2 As ListObject
    Dim row1 As ListRow
    Dim row2 As ListRow
    Dim column1 As Range
    Dim column2 As Range
    Dim i As Integer
    Dim j As Integer
    Dim isEqual As Boolean
    
    '指定表格
    Set table1 = Worksheets("Sheet1").ListObjects("Table1")
    Set table2 = Worksheets("Sheet2").ListObjects("Table2")
    
    '比较表格中的每个值
    For Each row1 In table1.ListRows
        For Each row2 In table2.ListRows
            isEqual = True
            For i = 1 To table1.ListColumns.Count
                Set column1 = row1.Range(1, i)
                Set column2 = row2.Range(1, i)
                If column1.Value <> column2.Value Then
                    isEqual = False
                    Exit For
                End If
            Next i
            If isEqual Then
                '找到匹配的行
                MsgBox "Row " & row1.Index & " in Table1 matches Row " & row2.Index & " in Table2."
                Exit For
            End If
        Next row2
    Next row1
End Sub

在这个示例代码中，我们首先指定了两个表格，然后比较了这两个表格中的每个值。如果找到了一个匹配的行，则弹出消息框来提示用户。您可以根据自己的需求修改此代码。