对比两个Excel工作表并高亮差异的VBA宏功能实现求助

你原有代码的核心问题是：varSheetA和varSheetB被你赋值为区域值的数组，仅存储单元格内容，没有绑定单元格对象，因此无法直接通过数组修改单元格样式，需要根据循环的行、列号定位到对应工作表的单元格，再设置高亮填充。

以下是完整可运行的修正代码：

Sub 对比工作表差异并高亮()
    Dim varSheetA As Variant
    Dim varSheetB As Variant
    Dim strRangeToCheck As String
    Dim iRow As Long
    Dim iCol As Long
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    strRangeToCheck = "A1:B65536"
    ' 如果确认数据仅存在于更小范围，可缩小上述范围的大小
    Debug.Print Now
    varSheetA = Worksheets("Sheet1").Range(strRangeToCheck).Value
    varSheetB = Worksheets("Sheet2").Range(strRangeToCheck).Value ' 可替换为你要对比的其他工作表
    Debug.Print Now
    
    ' 可选：先清空两个工作表原有填充色，避免旧高亮干扰
    Worksheets("Sheet1").Range(strRangeToCheck).Interior.ColorIndex = xlNone
    Worksheets("Sheet2").Range(strRangeToCheck).Interior.ColorIndex = xlNone
    
    For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)
        For iCol = LBound(varSheetA, 2) To UBound(varSheetA, 2)
            If varSheetA(iRow, iCol) = varSheetB(iRow, iCol) Then
                ' 单元格内容一致，无需操作
            Else
                ' 单元格内容存在差异，同时高亮两个表的对应单元格
                Worksheets("Sheet1").Cells(iRow, iCol).Interior.ColorIndex = 3 ' 3代表红色填充，可自行修改色号
                Worksheets("Sheet2").Cells(iRow, iCol).Interior.ColorIndex = 3
            End If
        Next iCol
    Next iRow
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "对比完成，差异单元格已高亮", vbInformation
End Sub

注意事项 #

• 你可以修改ColorIndex的数值调整高亮颜色，常用色号对应：3红色、4绿色、5蓝色、6黄色
• 如果对比范围不需要覆盖整列，建议缩小strRangeToCheck的范围，可进一步提升运行效率
• 若不需要同时高亮两个工作表的差异单元格，删除对应工作表的高亮代码即可

内容的提问来源于stack exchange，提问作者Roshan Rajan