VAB比较两张表的不同

Sub CompareSheets()
    Dim sheet1 As Worksheet'声明了一个名为 sheet1 的变量，并将其类型指定为 Worksheet。
    Dim sheet2 As Worksheet
    Dim compareRange As Range, cell As Range '这行代码声明了两个变量 compareRange 和 cell，它们的类型都是 Range，即 Excel 中的单元格范围。

    Set sheet1 = Worksheets("Sheet1") '"Sheet1" 的工作表对象分配给变量 sheet1
    Set sheet2 = Worksheets("Sheet2") '第二个工作表
    Set compareRange = sheet1.UsedRange '将第一个工作表的使用范围指定为比较范围

    For Each cell In compareRange '循环遍历比较范围中的每个单元格
        If cell.Value <> sheet2.Cells(cell.Row, cell.Column).Value Then '如果两个单元格的值不同
            cell.Interior.ColorIndex = 6 '将第一个工作表的单元格颜色设置为黄色
            sheet2.Cells(cell.Row, cell.Column).Interior.ColorIndex = 6 '将第二个工作表的单元格颜色设置为黄色
        End If
    Next cell

End Sub