如何在VBA中高亮DF:DS列空白单元格及对应第2行列标题？

要同时高亮空白单元格和对应第2行的列标题，你可以修改代码，遍历每个空白单元格，定位它所在列的第2行单元格并设置填充色。完整代码如下：

Dim lastRow As Long, lastCol As Long
Dim rng As Range, blankCell As Range

lastCol = last_col(ws)
lastRow = Last_Row_For_Realsies(ws, lastCol)

Set rng = ws.Range("DF3:DS" & lastRow)

' 可选：先清除之前的高亮，避免残留旧标记
ws.Range("DF2:DS2").Interior.ColorIndex = xlNone
rng.Interior.ColorIndex = xlNone

' 处理空白单元格及对应标题
On Error Resume Next ' 防止区域内无空白单元格时报错
For Each blankCell In rng.SpecialCells(xlCellTypeBlanks)
    ' 高亮当前空白单元格
    blankCell.Interior.Color = RGB(255, 204, 0)
    ' 高亮同一列的第2行标题单元格
    ws.Cells(2, blankCell.Column).Interior.Color = RGB(255, 204, 0)
Next blankCell
On Error GoTo 0

几点说明 #

• 用For Each循环逐个处理空白单元格，保证每个空白单元格对应的列标题都能被准确高亮。
• 加错误处理是为了避免当数据区域里没有空白单元格时，代码直接报错中断。
• 清除旧高亮的步骤是可选的，如果不需要保留之前的标记，可以加上这部分代码。
• 通过blankCell.Column获取空白单元格的列号，再用ws.Cells(2, 列号)精准定位到对应列的标题行单元格。

内容的提问来源于stack exchange，提问作者Ann