寻找与2个excel工作表完全匹配并返回数据

Sub CompareSheets()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rng1 As Range
    Dim rng2 As Range
    Dim cell1 As Range
    Dim cell2 As Range
    Dim matchFound As Boolean
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    Set rng1 = ws1.Range("A1:D10") ' 指定Sheet1的数据范围
    Set rng2 = ws2.Range("A1:D10") ' 指定Sheet2的数据范围
    
    For Each cell1 In rng1
        matchFound = False
        For Each cell2 In rng2
            If cell1.Value = cell2.Value Then
                matchFound = True
                Exit For
            End If
        Next cell2
        If Not matchFound Then
            cell1.Interior.Color = vbRed ' 如果没有找到匹配项，标记为红色
        End If
    Next cell1
End Sub