Excel中基于输入日期自动生成指定工作日后日期的设置方法咨询

阿华AIGC实验室

2026-4-16

嗨，Patricia！我来帮你搞定这个自动生成工作日日期的需求，有两种实用的方法，你可以根据自己的习惯选择~

方法一：用Excel内置函数（无需VBA，简单易上手）

Excel自带的WORKDAY函数专门用来计算工作日日期，默认排除周六和周日，还能自定义排除节假日，完全符合你的需求。

操作步骤：

打开你的工作表，找到I列对应的单元格（比如I2，对应E2的日期），输入公式：
```
=IF(E2<>"",WORKDAY(E2,10),"")
```
这个公式的意思是：如果E2单元格有日期输入，就自动计算E2日期之后10个工作日的日期；如果E2是空的，I2也保持空白。
同样，在L列对应的单元格（比如L2）输入公式：
```
=IF(E2<>"",WORKDAY(E2,12),"")
```
输入完公式后，选中这两个单元格，鼠标放在单元格右下角的填充柄上，按住左键下拉，把公式应用到整列即可。

小提示：如果你的工作需要排除特定节假日（比如法定假期），可以给WORKDAY函数加第三个参数。假设你的节假日日期存在A2:A10区域，公式就改成：

=IF(E2<>"",WORKDAY(E2,10,$A$2:$A$10),"")

（$符号是为了固定节假日区域的引用，下拉公式时不会变动）

方法二：用VBA实现自动触发更新（适合需要更自动化的场景）

如果希望在E列输入日期的瞬间，I列和L列就自动填充，不需要手动下拉公式，可以用VBA的工作表事件来实现：

操作步骤：

右键点击你的工作表标签（比如“Sheet1”），选择「查看代码」，打开VBA编辑器。
在弹出的代码窗口中，粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只响应E列的单元格变动
    If Not Intersect(Target, Me.Range("E:E")) Is Nothing Then
        Dim cell As Range
        ' 处理批量粘贴的情况，逐个检查E列的变动单元格
        For Each cell In Intersect(Target, Me.Range("E:E"))
            ' 判断单元格是否为有效日期
            If IsDate(cell.Value) And cell.Value <> "" Then
                ' 计算10个工作日后日期，填充到I列（E列向右偏移4列）
                cell.Offset(0, 4).Value = Application.WorksheetFunction.Workday(cell.Value, 10)
                ' 计算12个工作日后日期，填充到L列（E列向右偏移7列）
                cell.Offset(0, 7).Value = Application.WorksheetFunction.Workday(cell.Value, 12)
            Else
                ' 如果E列单元格被清空，对应的I列和L列也清空
                cell.Offset(0, 4).ClearContents
                cell.Offset(0, 7).ClearContents
            End If
        Next cell
    End If
End Sub

关闭VBA编辑器，回到工作表，现在只要在E列输入日期，I列和L列就会自动生成对应的工作日日期啦！

小提示：如果需要排除节假日，同样可以修改代码里的Workday部分，添加节假日区域参数，比如把代码里的Application.WorksheetFunction.Workday(cell.Value, 10)改成Application.WorksheetFunction.Workday(cell.Value, 10, Me.Range("A2:A10"))（A2:A10是你的节假日日期区域）。

备注：内容来源于stack exchange，提问作者Patricia Mollinedo