excel代码对比表格数据

您可以使用VBA编写Excel代码来对比表格数据。以下是一个示例代码，用于对比两个工作表的数据，并将差异标记为红色：

Sub CompareData()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell1 As Range, cell2 As Range
    
    '设置要对比的工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("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
    
    MsgBox "对比完成！"
End Sub

您需要将代码中的 "Sheet1" 和 "Sheet2" 替换为要对比的两个工作表的名称。执行该代码后，它将遍历第一个工作表的每个单元格，并在第二个工作表中查找匹配的单元格进行比较。如果两个单元格的值不同，它将把第一个工作表中的差异标记为红色。

请注意，此代码只会对比两个工作表中的单元格值是否相同，如果需要进行更复杂的对比，可以根据具体需求进行修改。