Excel VBA按行动态单元格条件格式设置问题求助

问题排查 #

你的代码有两个核心问题导致格式不生效：

• 公式目标值错误：规则要求匹配$A1="1003b"，但代码里写成了"1000b"
• 单元格引用不当：应用范围是整列$F:$F时，公式里的$F1应改为相对引用F1，确保每行对应自身的F单元格

修正后的代码 #

Sub SetConditionalFormatting()
    Dim MyRangeF As Range
    Set MyRangeF = Range("$F:$F")
    
    ' 清除已有条件格式，避免规则冲突
    MyRangeF.FormatConditions.Delete
    
    With MyRangeF
        ' 添加正确的条件格式规则
        .FormatConditions.Add Type:=xlExpression, Formula1:="AND($A1=""1003b"", F1=""NULL"")"
        With .FormatConditions(.FormatConditions.Count)
            .StopIfTrue = False
            .Interior.Color = RGB(255, 153, 153) ' 设置粉色填充
        End With
    End With
End Sub

关键细节说明 #

• 清除旧格式：运行代码前先删除目标区域的已有条件格式，防止旧规则干扰新设置
• 引用规则：$A1保持列绝对引用，确保每行都对应A列的同列单元格；F1用相对引用，匹配当前行的F单元格
• 索引可靠性：用.FormatConditions.Count引用新添加的规则，比固定用(1)更稳妥，避免多次运行时索引混乱

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