多重重叠条件格式VBA代码求助：格式异常与1004报错

让我们一步步排查并解决你遇到的两个问题：

问题1：第3条条件格式样式混乱、错误应用 #

原因分析 #

1. 公式分隔符兼容性问题：你在公式里用了分号;作为参数分隔符，但英文版本Excel默认用逗号,。如果你的Excel是英文环境，这个分号会导致公式解析失败，条件判断逻辑出错，看起来就像是样式被错误应用到了其他规则。
2. 条件格式索引引用有风险：虽然你用.FormatConditions(1)引用刚添加的条件，但如果后续对同一范围加更多条件，索引会变化。更稳妥的方式是用.FormatConditions(.FormatConditions.Count)直接引用刚添加的最后一个条件。
3. 优先级未明确：你注释掉了.SetFirstPriority，如果这个条件需要优先于其他规则生效，应该启用它，避免条件判断顺序导致的样式冲突。

修正要点 #

• 若使用英文Excel，把公式中的分号;替换为逗号,；如果是欧洲语言环境，分号是正确的，可跳过这步。
• 改用.FormatConditions(.FormatConditions.Count)引用刚添加的条件格式。
• 根据需求启用SetFirstPriority。

问题2：第4条条件格式触发1004错误（对象未定义） #

原因分析 #

错误使用了Worksheets(1).Application.Union写法：Union是Application对象的方法，不需要通过工作表对象调用。另外，你没给每个Range明确指定所属工作表，依赖Select后的ActiveSheet容易引发错误（比如工作表切换时）。

修正要点 #

• 直接使用Application.Union，并且每个Range都通过Worksheets(1)明确指定工作表。
• 避免使用Select，直接操作工作表对象让代码更健壮。

修正后的完整代码 #

Sub formatCondMesi()
    Dim ws As Worksheet
    Set ws = Worksheets(1) ' 定义工作表对象，彻底摆脱对Select和ActiveSheet的依赖
    
    ws.Unprotect Password:="ponzio"
    ws.Cells.FormatConditions.Delete ' 清除所有现有条件格式
    
    Dim i As Integer
    Dim A As Variant, B As Variant
    
    ' 1) 条件格式：H列小于0时字体红色
    With Application.Union(ws.Range("C7:O149"), ws.Range("C155:O297"), _
                           ws.Range("C303:O445"), ws.Range("C451:O593"))
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$H7<0"
        With .FormatConditions(.FormatConditions.Count)
            .Font.ColorIndex = 3
        End With
    End With
    
    ' 2) 条件格式：E150为空时字体白色
    With Application.Union(ws.Range("J150"), ws.Range("L150"), ws.Range("N150:O150"))
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$E150="""""
        With .FormatConditions(.FormatConditions.Count)
            .Font.ColorIndex = 2
        End With
    End With
    
    ' 3) 条件格式：E列不在A-B范围内时，红色加粗删除线
    i = 1
    If i = 1 Then
        A = ws.Range("F4").Value
        B = ws.Range("F5").Value
    End If
    With Application.Union(ws.Range("E7:E149"), ws.Range("E155:E297"), _
                           ws.Range("E303:E445"), ws.Range("E451:E593"))
        ' 注意：如果你的Excel是欧洲语言环境，把逗号改回分号
        .FormatConditions.Add Type:=xlExpression, Formula1:="=OR($E7<" & A & ",$E7>" & B & ")"
        With .FormatConditions(.FormatConditions.Count)
            .SetFirstPriority ' 启用优先级（如果需要这个条件优先判断）
            .Font.ColorIndex = 3
            .Font.Bold = True
            .Font.Strikethrough = True
        End With
    End With
    
    ' 4) 条件格式：O列等于0时字体红色（修复1004错误）
    With Application.Union(ws.Range("O7:O149"), ws.Range("O447:O593"), _
                           ws.Range("O299:O445"), ws.Range("O151:O297"))
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$O7=0"
        With .FormatConditions(.FormatConditions.Count)
            .Font.ColorIndex = 3
        End With
    End With
    
    ' 5) 条件格式：L列为#N/A时字体白色
    With Application.Union(ws.Range("L7:L149"), ws.Range("L151:L297"), _
                           ws.Range("L299:L445"), ws.Range("L447:L593"))
        .FormatConditions.Add Type:=xlExpression, Formula1:="=ISNA($L7)"
        With .FormatConditions(.FormatConditions.Count)
            .Font.ColorIndex = 2
        End With
    End With
    
    ws.Protect Password:="ponzio" ' 可选：操作完成后重新保护工作表
End Sub

额外优化说明 #

• 定义ws工作表对象，彻底避免使用Select，让代码更稳定、易维护。
• 每个条件格式都通过.FormatConditions(.FormatConditions.Count)引用刚添加的规则，避免索引变化导致的错误。
• 可选添加了重新保护工作表的代码，可根据你的需求决定是否保留。

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