Excel VBA条件格式异常：公式形式单元格全变红问题排查

你的代码存在两个关键问题，导致所有单元格被错误标红：

1. 单元格范围引用错误：Range(A1,A3)未给地址加引号，VBA会将A1、A3视为变量而非单元格地址，正确写法应为Range("A1:A3")。
2. 条件格式公式引用固定：公式=NOT(ISNUMBER(VALUE(A1)))始终判断A1的值，而非当前单元格的值，导致整个范围的格式判断逻辑统一指向A1。

修正后的代码如下：

Dim rng As Range
Set rng = Range("A1:A3")
' 使用R1C1引用样式的RC代表当前行当前列，确保每个单元格判断自身值
rng.FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(ISNUMBER(VALUE(RC)))"
rng.FormatConditions(1).Font.Color = RGB(255, 0, 0)

也可以用A1样式的相对引用实现，公式需对应范围的第一个单元格相对引用（VBA会自动为范围中其他单元格调整引用）：

Dim rng As Range
Set rng = Range("A1:A3")
rng.FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(ISNUMBER(VALUE(" & rng.Cells(1).Address(False, False) & ")))"
rng.FormatConditions(1).Font.Color = RGB(255, 0, 0)

前者用RC更简洁直接，能准确指向每个单元格自身，完美适配你的需求：既可以识别直接输入的非数字，也能识别="XXXX"这类公式返回的非数字文本，同时忽略="1234"这类公式返回的数字格式内容。

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