如何使用VBA对比Excel两列并高亮差异，现有条件格式代码效果不符求助

存在的问题 #

• 匹配逻辑反向：现有条件格式使用=判断两列值相等时触发高亮，和你需要的「高亮差异值」需求完全相反，应该改为不等号<>。
• 引用列错位：B:C列的条件格式错误引用了F、G列的内容做判断，没有对比B、C列本身的值，导致高亮逻辑完全不符合预期。
• 冗余代码问题：宏录制生成的Select/Selection语法可读性差，也容易因为操作时的选中范围变化触发异常。

修正后代码 #

Sub 高亮两列差异()
    ' 处理B:C列对比
    With Columns("B:C").FormatConditions.Add(Type:=xlExpression, Formula1:="=$B1<>$C1")
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.799981688894314
        End With
        .StopIfTrue = False
    End With
    
    ' 处理D:E列对比
    With Columns("D:E").FormatConditions.Add(Type:=xlExpression, Formula1:="=$D1<>$E1")
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.799981688894314
        End With
        .StopIfTrue = False
    End With
    
    ' 处理F:G列对比
    With Columns("F:G").FormatConditions.Add(Type:=xlExpression, Formula1:="=$F1<>$G1")
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.799981688894314
        End With
        .StopIfTrue = False
    End With
End Sub

补充说明 #

如果你的表格第一行是表头，数据从第二行开始，可以把公式里的行号1改为2，即可跳过表头行的判断。

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