如何编写Excel VBA宏按日期空值条件向指定列写入阶段标识

核心判定规则 #

宏代码按阶段优先级逐行判定，结果写入同行F列：

• 若B列单元格为空，F列写入Pending at Stage A
• 若B列非空但C列单元格为空，F列写入Pending at Stage B

完整VBA代码 #

代码做了性能优化，避免遍历整列导致的卡顿，同时兼容单元格真空、空文本两种空值场景：

Sub UpdateBusinessStage()
    Dim targetWs As Worksheet
    Dim lastDataRow As Long
    Dim rowIndex As Long
    
    ' 指向当前激活的工作表，如需指定固定工作表可替换为 Set targetWs = Sheets("你的工作表名")
    Set targetWs = ActiveSheet
    
    ' 临时关闭屏幕更新、自动计算，大幅提升大批量数据处理速度
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' 自动识别B列最后一条有效数据行，避免无意义遍历
    lastDataRow = targetWs.Cells(targetWs.Rows.Count, "B").End(xlUp).Row
    
    ' 从第2行开始遍历（默认第1行为表头，无表头可将起始值改为1）
    For rowIndex = 2 To lastDataRow
        ' 判定B列是否为空（兼容真空、空文本、带空格的假空场景）
        If Len(Trim(targetWs.Range("B" & rowIndex).Value)) = 0 Then
            targetWs.Range("F" & rowIndex).Value = "Pending at Stage A"
        ' B列非空时判定C列是否为空
        ElseIf Len(Trim(targetWs.Range("C" & rowIndex).Value)) = 0 Then
            targetWs.Range("F" & rowIndex).Value = "Pending at Stage B"
        End If
    Next rowIndex
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "处理完成，共更新 " & lastDataRow - 1 & " 条记录的业务阶段", vbInformation
End Sub

使用方法 #

• 打开目标Excel文件，按快捷键Alt+F11调出VBA编辑器
• 在左侧工程资源管理器中右键点击当前工作表，选择「插入」-「模块」
• 将上述代码粘贴到弹出的模块代码编辑窗口
• 按F5即可直接运行，也可返回Excel主界面，通过「开发工具」选项卡-「宏」，选中UpdateBusinessStage点击执行

注意事项 #

如果你的表格没有表头，需要从第1行开始处理，把循环语句里的起始行号2改成1即可。
代码默认按线性业务流程设置判定优先级：只要B列无值就判定为停留在A阶段，不会再校验C列状态。如果需要调整优先级，直接调换两个判定分支的顺序即可。

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