如何使用VBA设置多条件条件格式？运行无报错但规则不生效

问题原因及修正方案 #

你代码的问题集中在3处：

• 条件公式函数名错误，多条件并列判断需要用AND函数，你误写为E
• VBA字符串中表示文本双引号需要转义，要写两个连续双引号才能被识别为公式里的一个双引号
• 嵌套With块用法错误，已经通过.FormatConditions.Add拿到条件格式对象后，不需要再加.FormatConditions(1)前缀

修正后的可运行代码如下：

Dim Lr As Long
' MyResults 变量需提前正确声明赋值
Lr = MyResults.Range("A" & Rows.Count).End(xlUp).Row
With MyResults.Range("A12:H" & Lr)
    .FormatConditions.Delete
    With .FormatConditions.Add(Type:=xlExpression, Formula1:="=AND($A12<>"""",$F12=0)")
        .Interior.Color = RGB(250, 232, 234)
    End With
End With

上述代码实现逻辑：当A列对应行不为空、且F列对应行值为0时，整行（A到H列）填充浅红色背景，和需求效果一致。

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