Excel：使用VBA对单个列中的空白单元格应用条件格式

我已经将重复的条件格式应用到了包含1500行的工作表中的AB、AD、AR、AT、BH和BJ列，但是它也高亮显示了空格

我尝试创建一个附加的条件格式，将任何空白更改为白细胞颜色，因为我找不到从空白单元格中删除条件格式的方法。

我发现，目前唯一可以高亮显示白色单元格的方法是再次使用条件格式，这在录制宏时非常有效，但在重放宏时效果不佳，因为它会将整列变为白色，或将空白单元格保留为红色

这是附加条件格式的vba代码：

Sub Macro3()    
    Range("I:I,AB:AB,AD:AD,AR:AR,AT:AT,BH:BH,BJ:BJ").Select
    Range("BJ1").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(BJ1))=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

End Sub

---

非常感谢您的帮助，因为我花了太长时间试图找到一份工作

尝试为相同单元格添加另一个公式为

isblank=true的筛选器。
尝试此操作

Sub Macro3()
    Range("I:I,AB:AB,AD:AD,AR:AR,AT:AT,BH:BH,BJ:BJ").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(I1))=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

如果要自引用，请从左上角的单元格开始，因此
Selection.FormatConditions.Add Type:=xlExpression，Formula1:=“=LEN（TRIM（i1））=0”
您好，我已经尝试过了，但它仍然会给我以重复颜色高亮显示的空白单元格？