VBA设置条件格式：如何让公式引用指定行而非光标所在行

问题原因 #

你的代码中cells(10,11)未指定所属工作表/Range对象，默认关联当前活动单元格，导致构造条件格式公式时，引用被偏移到光标所在的第5行，而非目标数据区域的首行（第10行）。同时未正确构造相对引用，使得条件格式无法按每行第11列进行判断。

解决方案 #

方法1：使用R1C1引用格式（推荐）

R1C1格式的相对引用逻辑更直观，RC11直接表示当前行的第11列，无需手动处理地址转换，完全不受活动单元格位置影响。

修改后的代码：

Cells(5, 1).Select
With Range(Cells(10, 1), Cells(21, 19))
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(RC11<>"""",DATEDIF(RC11,TODAY(),""D"")<rngFLTDDays)"
    .FormatConditions(.FormatConditions.Count).StopIfTrue = True
    With .FormatConditions(.FormatConditions.Count).Interior
        .Color = Range("fltDDays").Interior.Color
        .TintAndShade = Range("fltDDays").Interior.TintAndShade
        .PatternColorIndex = Range("fltDDays").Interior.PatternColorIndex
    End With
End With

方法2：使用A1格式构造相对引用

通过明确关联目标Range的首行单元格，生成列绝对、行相对的引用地址，避免活动单元格干扰。

修改后的代码：

Cells(5, 1).Select
With Range(Cells(10, 1), Cells(21, 19))
    ' 基于当前Range的首行，生成第11列的相对引用地址（$K10）
    Dim targetColAddr As String
    targetColAddr = .Cells(1, 11).Address(False, True)
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(" & targetColAddr & "<>"""",DATEDIF(" & targetColAddr & ",TODAY(),""D"")<rngFLTDDays)"
    .FormatConditions(.FormatConditions.Count).StopIfTrue = True
    With .FormatConditions(.FormatConditions.Count).Interior
        .Color = Range("fltDDays").Interior.Color
        .TintAndShade = Range("fltDDays").Interior.TintAndShade
        .PatternColorIndex = Range("fltDDays").Interior.PatternColorIndex
    End With
End With

说明 #

• 两种方法都能确保条件格式以目标数据区域的每行第11列为判断基准，不受光标位置影响。
• R1C1格式代码更简洁，无需额外变量，是处理条件格式相对引用的最优选择。

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