excel数据对比代码

Excel是一款功能强大的电子表格软件，可以方便地处理和分析大量数据。要对比Excel数据，可以使用VBA编写代码来实现。

首先，在Excel中按下Alt+F11，打开Visual Basic编辑器。然后，在新建的模块中编写以下代码：

Sub CompareData()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rng1 As Range, rng2 As Range
    Dim cell1 As Range, cell2 As Range
    Dim diffCount As Integer
    
    '设置要对比的两个工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    '设置对比范围（这里设置为A1到E10）
    Set rng1 = ws1.Range("A1:E10")
    Set rng2 = ws2.Range("A1:E10")
    
    '循环遍历每个单元格进行对比
    For Each cell1 In rng1
        For Each cell2 In rng2
            '对比两个单元格的值
            If cell1.Value <> cell2.Value Then
                '如果值不相同，将差异的单元格标记为红色
                cell1.Interior.Color = RGB(255, 0, 0)
                cell2.Interior.Color = RGB(255, 0, 0)
                '记录差异的数量
                diffCount = diffCount + 1
            End If
        Next cell2
    Next cell1
    
    '弹出对比结果的消息框
    MsgBox "共有" & diffCount & "个差异单元格"
    
    '清除选择
    ws1.Activate
    Set rng1 = Nothing
    Set rng2 = Nothing
    Set cell1 = Nothing
    Set cell2 = Nothing
End Sub

保存代码后，按下Alt+Q返回Excel，按下Alt+F8，选择"CompareData"宏，然后点击"运行"按钮。

以上代码会选择两个工作表的指定范围进行数据对比，如果有差异，会将差异的单元格标记为红色并弹出消息框显示差异的数量。

需要注意的是，代码中的工作表名称、对比范围和颜色可以根据实际情况进行修改。另外，代码只能对比两个工作表的数据，如果需要对比多个工作表，则需要稍微调整代码。