逐个单元格比较两个工作簿的差异，并在第二个工作簿VBA中为差异着色

Sub CompareWorkbooks()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell1 As Range, cell2 As Range
    
    ' 设置要比较的工作簿和工作表
    Set wb1 = ThisWorkbook ' 第一个工作簿
    Set wb2 = Workbooks("工作簿2.xlsx") ' 第二个工作簿
    Set ws1 = wb1.Worksheets("Sheet1") ' 第一个工作表
    Set ws2 = wb2.Worksheets("Sheet1") ' 第二个工作表
    
    ' 循环比较每个单元格的值
    For Each cell1 In ws1.UsedRange
        Set cell2 = ws2.Range(cell1.Address)
        
        ' 如果两个单元格的值不相等，则为差异着色
        If cell1.Value <> cell2.Value Then
            cell2.Interior.Color = RGB(255, 0, 0) ' 红色
        End If
    Next cell1
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 释放对象
    Set cell1 = Nothing
    Set cell2 = Nothing
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set wb1 = Nothing
    Set wb2 = Nothing
End Sub