Excel VBA多列条件格式设置问题求助：指定最后行范围及#N/A单元格着色失效

我来帮你排查这两个问题哈！咱们一个个来解决：

一、指定最后行的多列范围失效问题 #

你的代码里Range的字符串拼接语法出错了——双引号嵌套的方式不对，导致VBA无法识别正确的单元格范围。这里有两种靠谱的修正方式：

方式1：正确拼接范围字符串 #

把多列的范围用逗号连接，注意字符串拼接时的双引号闭合规则：

Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
With Range("E2:E" & lr & ",F2:F" & lr & ",H2:H" & lr)
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).Interior.Color = 13561798
    .FormatConditions(1).StopIfTrue = False
End With

方式2：用Union方法合并多个Range（更清晰不易错） #

如果列数多，用Union把多个单列范围合并，可读性更强：

Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
With Union(Range("E2:E" & lr), Range("F2:F" & lr), Range("H2:H" & lr))
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).Interior.Color = 13561798
    .FormatConditions(1).StopIfTrue = False
End With

二、#N/A单元格着色失效问题 #

#N/A属于Excel的错误值类型，不能用xlCellValue类型直接匹配，得改用xlExpression类型，结合ISNA函数来检测错误值。修正后的代码如下：

Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
With Union(Range("E2:E" & lr), Range("F2:F" & lr), Range("H2:H" & lr))
    .FormatConditions.Add Type:=xlExpression, Formula1:="=ISNA(" & .Cells(1).Address(False, False) & ")"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).Interior.Color = 13561798
    .FormatConditions(1).StopIfTrue = False
End With

这里的ISNA函数专门用来判断单元格是否包含#N/A错误，公式里的.Cells(1).Address(False, False)会自动获取当前范围的第一个单元格相对引用，确保条件格式能适配每一列的所有单元格。

备注：内容来源于stack exchange，提问作者SAYA