如何用条件格式或VBA高亮指定列空白单元格并生成位置统计表

针对你250+行数据的工作表需求，以下提供两种落地实现方式：条件格式+公式的无代码方案，以及一键完成的VBA方案。

方法一：无代码实现（条件格式+公式统计） #

1. 高亮指定列空白单元格 #

• 按住Ctrl键依次点击Elevation、Land Use、**DOC (Meters)**的列标题，选中整列。
• 切换到「开始」选项卡 → 点击「条件格式」→ 「新建规则」。
• 选择「只为包含以下内容的单元格设置格式」，规则类型选「空白」。
• 点击「格式」→ 「填充」标签页，选择黄色后确定。

2. 统计空白数量与单元格地址 #

可在当前工作表侧边（如Z列开始）或新工作表创建统计表格：

1. 在统计区域的A1:C1输入表头：列名、空白数量、空白单元格地址。
2. 空白数量统计：假设源工作表名为Sheet1，在B2单元格输入公式：

   =COUNTBLANK(Sheet1!E:E)
   

   替换E列为对应目标列的列标（Land Use列、DOC (Meters)列同理），下拉填充到对应行。
3. 空白单元格地址统计（Excel 365/2021直接回车，旧版本按Ctrl+Shift+Enter触发数组公式）：

   =TEXTJOIN(", ", TRUE, IF(Sheet1!E:E="", ADDRESS(ROW(Sheet1!E:E), COLUMN(Sheet1!E:E)), ""))
   

   同样替换E列为目标列，注意：若空白单元格过多，TEXTJOIN可能超出字符限制，此时推荐使用VBA方案。

方法二：VBA一键自动化处理 #

该方案可一次性完成高亮与统计，且无字符限制问题。

代码实现 #

Sub ProcessBlankCells()
    Dim wsSource As Worksheet
    Dim wsStats As Worksheet
    Dim targetCols As Variant
    Dim col As Variant
    Dim colNum As Integer
    Dim lastRow As Long
    Dim cell As Range
    Dim blankCount As Integer
    Dim blankAddresses As String
    
    ' 指定源工作表（修改为你的工作表名称）
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    
    ' 创建或获取统计工作表
    On Error Resume Next
    Set wsStats = ThisWorkbook.Worksheets("空白统计")
    On Error GoTo 0
    If wsStats Is Nothing Then
        Set wsStats = ThisWorkbook.Worksheets.Add(After:=wsSource)
        wsStats.Name = "空白统计"
    End If
    
    ' 清空旧统计数据
    wsStats.Cells.Clear
    
    ' 定义需要处理的目标列名
    targetCols = Array("Elevation", "Land Use", "DOC (Meters)")
    
    ' 设置统计表格表头
    wsStats.Range("A1:C1") = Array("列名", "空白单元格数量", "空白单元格地址")
    wsStats.Range("A1:C1").Font.Bold = True
    
    ' 遍历处理每一列
    For Each col In targetCols
        ' 查找目标列的列号
        colNum = wsSource.Rows(1).Find(What:=col, LookIn:=xlValues, LookAt:=xlWhole).Column
        ' 获取该列最后一行数据
        lastRow = wsSource.Cells(wsSource.Rows.Count, colNum).End(xlUp).Row
        
        ' 应用条件格式高亮空白单元格
        wsSource.Range(wsSource.Cells(2, colNum), wsSource.Cells(lastRow, colNum)).FormatConditions.Delete
        With wsSource.Range(wsSource.Cells(2, colNum), wsSource.Cells(lastRow, colNum)).FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""")
            .Interior.Color = vbYellow
        End With
        
        ' 统计空白单元格数量与地址
        blankCount = 0
        blankAddresses = ""
        For Each cell In wsSource.Range(wsSource.Cells(2, colNum), wsSource.Cells(lastRow, colNum))
            If cell.Value = "" Then
                blankCount = blankCount + 1
                blankAddresses = IIf(blankAddresses = "", cell.Address(False, False), blankAddresses & ", " & cell.Address(False, False))
            End If
        Next cell
        
        ' 写入统计结果到表格
        With wsStats.Cells(wsStats.Rows.Count, 1).End(xlUp).Offset(1, 0)
            .Value = col
            .Offset(0, 1).Value = blankCount
            .Offset(0, 2).Value = blankAddresses
        End With
    Next col
    
    ' 自动调整统计表格列宽
    wsStats.Columns("A:C").AutoFit
    
    MsgBox "处理完成！统计结果已保存到「空白统计」工作表。", vbInformation
End Sub

使用步骤 #

1. 打开Excel文件，按下Alt+F11打开VBA编辑器。
2. 右键左侧工程窗口中的工作簿名称 → 「插入」→ 「模块」。
3. 将上述代码粘贴到模块中，修改Set wsSource = ThisWorkbook.Worksheets("Sheet1")里的Sheet1为你的源工作表名称。
4. 按下F5运行宏，或回到Excel界面，点击「开发工具」→ 「宏」→ 选择ProcessBlankCells执行。

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