Excel VBA宏报错：相邻列值对比标红功能实现求助

原代码存在几个关键错误导致报错：

• 条件格式参数拼写错误：Formulal应为Formula1
• 条件格式公式写法错误：不能用ActiveCell.Select这类VBA语句作为公式，需使用Excel单元格引用的公式字符串
• 循环逻辑混乱：未正确切换到下一列，依赖Select操作易引发对象错误
• 起始列范围选择逻辑不严谨

以下是修复后的代码，实现对比相邻列数值，不同单元格标红，直至遇到空白列的需求：

Sub HighlightDifferences()
    Dim currentCol As Integer
    Dim dataRange As Range
    
    ' 从当前活动单元格所在列开始
    currentCol = ActiveCell.Column
    
    ' 循环处理每一列，直到下一列无数据
    Do Until IsEmpty(Cells(1, currentCol + 1))
        ' 获取当前列的数据范围（从活动单元格行到最后一行有数据的行）
        Set dataRange = Range(Cells(ActiveCell.Row, currentCol), Cells(Rows.Count, currentCol).End(xlUp))
        
        ' 添加条件格式：当前单元格不等于左侧单元格时标红
        With dataRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=RC<>RC[-1]")
            .SetFirstPriority
            .Interior.Color = 255
            .Interior.PatternColorIndex = xlAutomatic
            .Interior.TintAndShade = 0
        End With
        
        ' 切换到下一列
        currentCol = currentCol + 1
    Loop
End Sub

关键说明： #

• 避免使用Select/Activate：直接通过Range和Cells操作单元格，减少对象错误风险
• 条件格式用RC相对引用：=RC<>RC[-1]表示当前单元格不等于左侧单元格，Excel会自动适配范围内的每个单元格
• 循环终止条件：检查下一列第一行是否为空，判断是否停止处理
• 动态获取数据范围：用Rows.Count.End(xlUp)获取当前列最后一行有数据的行，避免处理空白行

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