EXCEL VBA 查找列 C:O 中的所有空白单元格，然后将它们涂成红色

Posted 2023-04-13

【中文标题】EXCEL VBA 查找列 C:O 中的所有空白单元格，然后将它们涂成红色

【英文标题】：EXCEL VBA Find All Blank Cells in Columns C:O and then color them red

【发布时间】：2016-09-01 08:22:17

【问题描述】：

如果一个单元格是空的，我需要用红色填充它（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列并过滤红色的单元格时，你可以看到所有有空单元格的列。

任何帮助将不胜感激。

【问题讨论】：

条件格式也可以在这方面为您提供帮助。

【参考方案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