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

我已经在一个大约有1500行的工作表中将重复的条件格式应用于AB，AD，AR，AT，BH和BJ列，但是它也突出显示了空格。

我试图创build一个额外的条件格式，将任何空格更改为白色单元格颜色，因为我找不到从空白单元格中删除条件格式的方法。

我发现现在突出显示单元格的唯一方法是再次使用条件格式，当我录制macros时，它完美地工作，但不是当我重放这个时，因为它将整列变成白色，或者留下空白单元格为红。

这是附加条件格式的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 

帮助是非常感谢，因为我花了太久试图find解决办法！

Answer 1

尝试使用公式isblank=true为相同的单元添加另一个filter。

Answer 2

尝试这个

 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