需求：编写VBA代码高亮Sheet1与Sheet2的不匹配单元格数据

嘿，我来帮你完善这段校验代码，实现两个工作表对应位置单元格值不同时自动高亮的功能！咱们可以灵活选择只标记Sheet1，或者同时标记两个表，代码里都给你留好自定义选项啦。

完整VBA代码 #

Sub HighlightCellDifferences()
    Dim varSheetA As Variant
    Dim varSheetB As Variant
    Dim strRangeToCheck As String
    Dim iRow As Long
    Dim iCol As Long
    Dim highlightSheet1 As Boolean, highlightSheet2 As Boolean
    
    ' 可自定义：选择是否高亮Sheet1和Sheet2的差异单元格
    highlightSheet1 = True
    highlightSheet2 = True
    ' 可自定义：要检查的单元格范围，比如"A1:Z100"
    strRangeToCheck = "A1:Z100"
    
    ' 将指定范围的值读取到数组，大幅提升运行效率（数据量大时效果明显）
    varSheetA = ThisWorkbook.Worksheets("Sheet1").Range(strRangeToCheck).Value
    varSheetB = ThisWorkbook.Worksheets("Sheet2").Range(strRangeToCheck).Value
    
    ' 先清除之前的高亮格式（可选，避免旧标记残留干扰新结果）
    If highlightSheet1 Then
        ThisWorkbook.Worksheets("Sheet1").Range(strRangeToCheck).Interior.ColorIndex = xlNone
    End If
    If highlightSheet2 Then
        ThisWorkbook.Worksheets("Sheet2").Range(strRangeToCheck).Interior.ColorIndex = xlNone
    End If
    
    ' 遍历数组对比每个单元格值
    For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)
        For iCol = LBound(varSheetA, 2) To UBound(varSheetA, 2)
            ' 处理空值对比：一方为空另一方不为空也算差异
            If IsEmpty(varSheetA(iRow, iCol)) Xor IsEmpty(varSheetB(iRow, iCol)) Then
                If highlightSheet1 Then
                    ThisWorkbook.Worksheets("Sheet1").Cells(iRow, iCol).Interior.Color = RGB(255, 204, 204) ' 浅红色高亮
                End If
                If highlightSheet2 Then
                    ThisWorkbook.Worksheets("Sheet2").Cells(iRow, iCol).Interior.Color = RGB(255, 204, 204)
                End If
            ElseIf Not IsEmpty(varSheetA(iRow, iCol)) Then
                ' 双方都不为空时，直接对比单元格值
                If varSheetA(iRow, iCol) <> varSheetB(iRow, iCol) Then
                    If highlightSheet1 Then
                        ThisWorkbook.Worksheets("Sheet1").Cells(iRow, iCol).Interior.Color = RGB(255, 204, 204)
                    End If
                    If highlightSheet2 Then
                        ThisWorkbook.Worksheets("Sheet2").Cells(iRow, iCol).Interior.Color = RGB(255, 204, 204)
                    End If
                End If
            End If
        Next iCol
    Next iRow
    
    MsgBox "差异单元格标记完成！", vbInformation
End Sub

代码关键说明 #

• 自定义开关：代码开头的highlightSheet1和highlightSheet2，改成False就可以关闭对应工作表的高亮标记；strRangeToCheck直接修改成你需要检查的单元格范围即可。
• 效率优化：把单元格区域的值一次性读取到数组中遍历，比逐个访问单元格快很多，处理大量数据时体验会好很多。
• 空值兼容：特意处理了“一方为空另一方不为空”的场景，避免这种常见情况被漏判。
• 颜色自定义：当前用的是浅红色RGB(255,204,204)，你可以换成自己喜欢的颜色，比如黄色RGB(255,255,0)。

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 在左侧项目窗口右键点击你的工作簿，选择「插入」→「模块」。
3. 把上面的代码粘贴到新建模块里。
4. 根据需求修改开头的自定义选项。
5. 按下F5运行代码，或者回到Excel通过「开发工具」→「宏」选择HighlightCellDifferences执行。

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