基于另一单元格区域的VBA条件格式设置问题求助

问题出在条件格式的公式引用上：你当前使用的"=ABS(F$18-F$8)>5%"是固定的F列引用，导致F8:Q8区域内所有单元格都用F18与F8的差值判断，而非对应列的18行和8行数据。

修正后的VBA代码如下：

With Range("F8:Q8")
    .FormatConditions.Delete ' 清除原有条件格式，避免重复冲突
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ABS(R18C-R8C)>0.05" ' 用R1C1引用自动匹配当前列的18行和8行数据
    With .FormatConditions(.FormatConditions.Count)
        .SetFirstPriority
        With .Font
            .Bold = True
            .Italic = False
            .TintAndShade = 0
        End With
        With .Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        .StopIfTrue = False
        .ScopeType = xlSelectionScope
    End With
End With

关键修改说明： #

• 改用With Range("F8:Q8")直接操作单元格区域，去掉冗余的Select操作，提升代码效率
• 新增.FormatConditions.Delete避免重复添加条件格式导致的逻辑混乱
• 公式改用R1C1格式：
  • R18C代表当前单元格所在列的第18行
  • R8C代表当前单元格所在列的第8行
  • 这样区域内每个单元格都会自动匹配对应列的两行数据做差值计算

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