VBA--快捷操作1.核对两张excel表的数据

Sub CompareTwoSheets()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rng1 As Range, rng2 As Range
    Dim cell1 As Range, cell2 As Range
    Dim diffCount As Long
    
    ' 设置要对比的两个工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1") ' 表1
    Set ws2 = ThisWorkbook.Sheets("Sheet2") ' 表2
    
    ' 假设对比 A1:B10 区域（可调整）
    Set rng1 = ws1.Range("A1:B10")
    Set rng2 = ws2.Range("A1:B10")
    
    diffCount = 0
    
    ' 遍历所有单元格，对比数据
    For Each cell1 In rng1
        Set cell2 = rng2.Cells(cell1.Row - rng1.Row + 1, cell1.Column - rng1.Column + 1)
        
        If cell1.Value <> cell2.Value Then
            ' 标记差异（可改为写入新表）
            cell1.Interior.Color = RGB(255, 0, 0) ' 红色标记表1
            cell2.Interior.Color = RGB(255, 255, 0) ' 黄色标记表2
            diffCount = diffCount + 1
        End If
    Next cell1
    
    ' 输出对比结果
    MsgBox "对比完成，发现 " & diffCount & " 处差异。", vbInformation
End Sub