有没有一种方法可以使用VBA比较不同工作表上的两个表，并查看它们是否匹配/满足条件？

Sub CompareSheets()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim cell1 As Range
    Dim cell2 As Range
    
    ' 设置要比较的两个工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 遍历第一个工作表的每个单元格
    For Each cell1 In ws1.UsedRange
        ' 在第二个工作表中查找匹配的单元格
        Set cell2 = ws2.Range(cell1.Address)
        
        ' 比较两个单元格的值
        If cell1.Value <> cell2.Value Then
            ' 如果不匹配，则在第一个工作表中标记为红色
            cell1.Interior.Color = RGB(255, 0, 0)
        End If
    Next cell1
End Sub