工作表数据比较

cncz1234

请问各位大侠们，如何比较两张工作表哪些数据发生变化，包括文本和数字，急，先谢

叶子Excel

A表、B表，复制一个空格式表C出来，按单元格顺序在C表用exact函数比对，标红出false，然后复制红色格式到A，B表标记出不一样的地方

bobaby88

楼主是不是想要附件里这样的结果，两表的蓝色纹底就是对比不一样的地方！

dinghl0453

说明：
1、原数字有文本格式，都更改成数字格式，便于比较。
2、在第5行增加了1空白行，便于VBA运算取数据。
3、填充颜色可以通过修改“COLOR=”后的数字改变。


Sub 数据比较() '
'关闭屏幕更新
Application.ScreenUpdating = False
Dim arr, brr
Dim j, k, jj, kk
    Set sht1 = Worksheets("表A")
    Set sht2 = Worksheets("表B")
    arr = sht1.[a6].CurrentRegion
    brr = sht2.[a6].CurrentRegion
    jj = UBound(brr)
    kk = UBound(brr, 2)
    '清除表中填充色
    Set Rng = sht2.[a6].CurrentRegion
    Rng.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    '比较数据,对"表B"中不同数据填充底色标记
    sht2.Select
    For j = 2 To jj
        For k = 1 To kk
            If arr(j, k) <> brr(j, k) Then
                Cells(j + 5, k).Interior.Color = 5296274
            End If
        Next
    Next

'恢复屏幕更新
Application.ScreenUpdating = True
ThisWorkbook.Save
End Sub