在原有宏命令基础上给修正一下

lu咩

ykcbf1100 发表于 2025-4-3 15:00
你这个比较复杂了，代码重写了。

老师辛苦了，完美。

quqiyuan

字体颜色修改一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    t = Timer
    Dim wb As Workbook, sht As Worksheet, sh As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("原始数据")
    Set sh = wb.Sheets("账单数据")
    sht.UsedRange.Interior.ColorIndex = xlNone
    sh.UsedRange.Interior.ColorIndex = xlNone
    arr = sht.[a1].CurrentRegion
    brr = sh.[a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        s = arr(i, 8)
        If Not d.exists(s) Then
            d(s) = i
        End If
    Next
    For i = 2 To UBound(brr)
        s = brr(i, 8)
        If d.exists(s) Then
            For j = 1 To UBound(brr, 2)
                If brr(i, j) <> arr(d(brr(i, 8)), j) Then
                    sh.Cells(i, 1).Resize(, UBound(brr, 2)).Interior.ColorIndex = 14
                    sht.Cells(d(brr(i, 8)), 1).Resize(, UBound(arr, 2)).Interior.ColorIndex = 4
                    sh.Cells(i, j).Font.ColorIndex = 3
                    sht.Cells(d(brr(i, 8)), j).Font.ColorIndex = 3
                End If
            Next
        End If
    Next
    Set d = Nothing
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "共耗时：" & Format(Timer - t, "0.0000") & " 秒！！！", 64
End Sub

黄培

太感谢您们了！我都不知道如何表达了！跪谢！感恩各位老师！要不我这项工作费老劲了！

黄培

再请教各位老师，我比对后标记底纹和标记红色字体的是表示有差异吗

黄培

老师，这是根据您们写的代码 我比对试验结果，怎么都有底纹 ？我这做的正确吗？

温馨云

黄培 发表于 2025-4-3 16:43
再请教各位老师，我比对后标记底纹和标记红色字体的是表示有差异吗

用 quqiyuan 老师的测试一下，草爷写的那个，两表的位置是固定的比对。

黄培

目前看，没标记底纹的是有差异的也就是账单12条记录，原始-13条记录，是不是意味着字体未标记红色，且未标记底纹的是遗漏数据（有差异）？