VBA无法识别[Red]数字格式及代码简化问题咨询

1. [Red]格式被覆盖的修复方法 #

你遇到的问题核心是判断逻辑的运算符优先级错误：Not 的优先级高于Or，你写的条件实际执行时等价于：

If (Not c.NumberFormat = "0%") Or c.NumberFormat = "0%;(0)" Or c.NumberFormat = "0%;[Red](0%)" Then

只要单元格格式不是0%，不管是不是另外两个允许的格式，条件都会触发，直接把格式覆盖为#.##0,00，才会出现[Red]格式始终无法保留的情况。
正确的逻辑是把三个待判断的格式都放到Not后的括号里，只要不在这三个格式范围内才修改：

If Not (c.NumberFormat = "0%" Or c.NumberFormat = "0%;(0)" Or c.NumberFormat = "0%;[Red](0%)") Then

如果修改逻辑后仍有识别问题，可以尝试两个调整：

• 检查Excel的区域语言设置，确认千位分隔符、小数分隔符和你写的#.##0,00格式匹配，避免格式串解析异常
• 非英文系统下可以尝试把[Red]替换为对应语言的颜色标记，比如中文系统用[红色]

2. 代码简化方案 #

不需要重复写Or c.NumberFormat，最简洁的方式是用Select Case语句：

Sub 批量设置数字格式()
    Dim c As Range
    For Each c In Selection
        Select Case c.NumberFormat
            ' 所有不需要修改的格式直接列在这里，用逗号分隔
            Case "0%", "0%;(0)", "0%;[Red](0%)"
            Case Else
                c.NumberFormat = "#.##0,00"
        End Select
    Next
End Sub

如果后续需要新增不需要修改的格式，直接在Case后的列表里追加即可。如果允许的格式数量很多，也可以存到数组里遍历判断，维护更方便：

Sub 批量设置数字格式()
    Dim c As Range, allowFmts, fmt
    ' 所有不需要修改的格式统一存在数组里
    allowFmts = Array("0%", "0%;(0)", "0%;[Red](0%)")
    For Each c In Selection
        Dim isMatch As Boolean: isMatch = False
        For Each fmt In allowFmts
            If c.NumberFormat = fmt Then
                isMatch = True
                Exit For
            End If
        Next
        If Not isMatch Then c.NumberFormat = "#.##0,00"
    Next
End Sub

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