Excel VBA实现两列单元格对比并高亮差异（附报错代码）

原代码的问题分析 #

原代码无法正常运行的核心原因有两个：

1. 变量复用逻辑混乱：先把x赋值为A1:A5区域，之后循环又将x作为CompareRange（C1:C5）里的单个单元格，变量重复使用导致对比逻辑错误。
2. 对比逻辑错误：If x <> CompareRange是拿单个单元格和整个C列区域做比较，而不是和对应行的单元格一对一对比，这会导致判断结果完全不符合预期。

修正后的代码 #

Sub HighlightColumnDifferences()
    Dim ws As Worksheet
    Dim targetRange As Range, compareRange As Range
    Dim rowNum As Integer
    
    ' 指定要操作的工作表，根据实际情况修改名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 定义需要对比的两列区域：A列和C列的1-5行
    Set targetRange = ws.Range("A1:A5")
    Set compareRange = ws.Range("C1:C5")
    
    ' 清除两列原有背景色，避免旧高亮残留
    targetRange.Interior.ColorIndex = xlColorIndexNone
    compareRange.Interior.ColorIndex = xlColorIndexNone
    
    ' 循环每一行，执行对应单元格的对比
    For rowNum = 1 To targetRange.Rows.Count
        ' 对比同一行的两个单元格内容
        If targetRange.Cells(rowNum, 1).Value <> compareRange.Cells(rowNum, 1).Value Then
            ' 为差异单元格设置红色背景，可按需修改RGB值调整颜色
            targetRange.Cells(rowNum, 1).Interior.Color = RGB(255, 87, 87)
            compareRange.Cells(rowNum, 1).Interior.Color = RGB(255, 87, 87)
        End If
    Next rowNum
End Sub

代码关键说明 #

• 明确区分targetRange（A列）和compareRange（C列），避免变量复用导致的逻辑混乱。
• 先清除原有背景色，确保每次运行代码都是基于当前单元格内容的全新对比结果。
• 通过行号循环实现对应行单元格的一对一对比，这是解决原问题的核心修正点。
• 代码中同时高亮了两列的差异单元格，若只需高亮其中一列，删除对应行的赋值语句即可。

扩展优化（可选） #

如果需要忽略空值对比，或者只高亮特定列，可修改判断逻辑：

' 只高亮A列差异单元格，且忽略两边都为空的情况
If (targetRange.Cells(rowNum, 1).Value <> compareRange.Cells(rowNum, 1).Value) And _
    Not (IsEmpty(targetRange.Cells(rowNum, 1)) And IsEmpty(compareRange.Cells(rowNum, 1))) Then
    targetRange.Cells(rowNum, 1).Interior.Color = RGB(255, 87, 87)
End If

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