excel vba基于唯一值比较两张工作表

Sub CompareWorksheets()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell1 As Range, cell2 As Range
    Dim diffCount As Integer
    
    ' 定义要比较的两个工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 循环遍历第一个工作表的每个单元格
    For Each cell1 In ws1.UsedRange
        ' 在第二个工作表中查找相同的单元格
        Set cell2 = ws2.Range(cell1.Address)
        
        ' 如果找不到相同的单元格，则将差异标记为红色
        If cell2 Is Nothing Then
            cell1.Interior.Color = RGB(255, 0, 0)
            diffCount = diffCount + 1
        End If
    Next cell1
    
    ' 显示比较结果
    If diffCount = 0 Then
        MsgBox "两个工作表相同"
    Else
        MsgBox "两个工作表有" & diffCount & "个差异"
    End If
End Sub