如何在VBA宏中使用WORKDAY函数实现空单元格自动填充前一工作日？

我来帮你修正这段VBA代码，你的需求逻辑很清晰，但代码里有两个关键问题导致没达到预期效果：

你的代码存在的核心问题 #

1. 空单元格判断逻辑被注释：你把If cell.Value = "" Then注释掉了，导致不管I列单元格是否为空，都会被强制覆盖成公式
2. 公式引用固定死了H3：你写的"=WORKDAY(""H3"",-1)"是把"H3"当成文本字符串传入，所有单元格都会固定引用H3，而不是对应行的H列单元格

修正后的循环版代码（保留你的原始思路） #

这个版本修复了上述问题，严格按照你的需求执行：

Sub FillWorkday()
    Dim rng As Range
    Dim cell As Range
    ' 定位I列从I3开始的已使用数据区域
    Set rng = Range("I3", Cells(Rows.Count, "I").End(xlUp))
    
    For Each cell In rng
        ' 仅处理I列的空单元格
        If cell.Value = "" Then
            ' 引用当前行的H列单元格，用cell.Row动态获取行号
            cell.Formula = "=WORKDAY(H" & cell.Row & ", -1)"
            ' 可选优化：如果H列可能为空/非有效日期，用IFERROR避免错误值
            ' cell.Formula = "=IFERROR(WORKDAY(H" & cell.Row & ", -1), """")"
        End If
    Next
End Sub

更高效的批量赋值版（推荐给大数据量场景） #

如果你的表格数据很多，循环会比较慢，直接定位所有空单元格批量赋值公式的效率会高很多：

Sub FillWorkdayFast()
    Dim lastRow As Long
    Dim emptyRng As Range
    
    ' 获取H列最后一行（确保覆盖所有有数据的行）
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    ' 定位I3到I[lastRow]中的所有空单元格
    On Error Resume Next ' 防止没有空单元格时报错
    Set emptyRng = Range("I3:I" & lastRow).SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    If Not emptyRng Is Nothing Then
        ' 用R1C1相对引用批量设置公式，Excel会自动适配每行
        emptyRng.FormulaR1C1 = "=WORKDAY(RC[-1], -1)"
        ' 可选优化：添加错误处理
        ' emptyRng.FormulaR1C1 = "=IFERROR(WORKDAY(RC[-1], -1), """")"
    End If
End Sub

额外注意事项 #

• WORKDAY函数依赖：如果你的Excel版本较旧，需要确保启用了「分析工具库」（路径：文件>选项>加载项>转到>勾选分析工具库），Office 365/2021及以上版本默认已包含该函数
• 错误防护：如果H列对应的单元格不是有效日期，WORKDAY会返回#VALUE!错误，建议加上IFERROR来显示空值或自定义提示

内容的提问来源于stack exchange，提问作者F.Angel07