如何移除条件格式规则中的特定单元格引用以跨列复用？

修改后的VBA代码 #

Public Sub FillGreenIfCellNotEmpty()
    ' 清除选中区域已有的条件格式，避免重复叠加
    Selection.FormatConditions.Delete
    
    ' 添加基于公式的条件格式，用RC相对引用代表当前单元格
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(RC))>0"
    
    ' 配置条件格式规则
    With Selection.FormatConditions(Selection.FormatConditions.Count)
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0
        End With
        .StopIfTrue = False
    End With
End Sub

关键修改说明 #

• 用RC替代固定的B2：在Excel的R1C1引用规则里，RC代表当前单元格（相对引用），不管你选中哪一列，条件格式都会自动对每个单元格判断自身内容，完美适配多列选中的场景。之前用Cells(1,1)或Selection无效，是因为VBA对象引用和条件格式的工作表公式引用是两回事，条件格式需要的是Excel工作表能识别的公式语法，不是VBA对象。
• 新增Selection.FormatConditions.Delete：避免重复运行宏时，给同一区域叠加多个相同的条件格式规则。

关于LEN(TRIM())>0的疑问解答 #

1. 函数适用性限制：IsEmpty是VBA专属函数，在Excel工作表的条件格式公式里无法直接使用，工作表中对应的空单元格判断函数是ISBLANK()，但它和IsEmpty的逻辑一致，都有局限。
2. 贴合实际需求：ISBLANK()只判断单元格是否完全无内容（连空格都没有），但如果单元格里只有误输入的空格，用户大概率仍认为这是“空”状态。而LEN(TRIM(RC))>0会先去掉内容首尾的空格，再判断长度是否大于0，能精准排除纯空格的情况，更符合“非空即填充”的实际需求。

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