EXCEL VBA在列C：O中查找所有空白单元格，然后将其着色为红色

如果一个单元格是空的，我需要填充一个红色（colorindex = 3）范围是C6：O735。

我试过这个代码，但没有奏效。

Sub Empty_Cells() Dim myRange As Range Set myRange = Sheet1.Range("C6:O735") 'color only blank cells myRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3 End Sub 

另外，比如说K89单元格是空的，那么我想用红色填充那个空单元格，同样的那个行的A89。

目的是当你到A列并用红色过滤单元格时，你可以看到所有有空单元格的列。

任何帮助将不胜感激。

Answer 1

但是，如果你想在VBA中做到这一点，那么你可以试试这个：

 Sub Lege_Cellen() Dim myRange As Range,cel As Range Set myRange = Sheet1.Range("C6:O735") For each cel in myRange if Trim(cel.value) = "" then cel.Interior.ColorIndex = 3 Next cel End Sub