VBA如何逐次检查指定Range范围内的多个单元格并执行对应内容清除操作

核心逻辑 #

直接遍历目标检查范围的所有单元格，通过动态获取列号匹配对应需要清空的行范围，无需逐列硬编码逻辑，31列可自动批量处理。

实现代码 #

Dim ws As Worksheet
Dim checkCell As Range

' 绑定目标工作表，避免重复引用
Set ws = ThisWorkbook.Worksheets("Sheet1")

' 遍历C9到AG9的每一个单元格
For Each checkCell In ws.Range("C9:AG9")
    ' 判断单元格是否为空
    If IsEmpty(checkCell.Value) = True Then
        ' 动态获取当前列的第5到8行范围，清空内容
        ws.Range(ws.Cells(5, checkCell.Column), ws.Cells(8, checkCell.Column)).ClearContents
    End If
Next

可选调整 #

如果需要同时处理「单元格物理为空」和「单元格公式返回空文本」的场景，可以把判断条件替换为：

If VBA.Trim(checkCell.Text) = "" Then

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