寻求Excel/VBA实现日期按指定时长增量并转工作日的方案

如果需要频繁更新数据或处理大量行，用VBA宏会更高效，步骤如下：

1. 打开Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧工程窗口右键点击你的工作表，选择插入→模块
3. 将以下代码粘贴到模块中：

Sub CalculateWorkdayDates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim baseDate As Date
    Dim spResult As Date
    Dim durationNum As Integer
    Dim durationUnit As String
    Dim calcDate As Date
    Dim workdayDate As Date
    
    ' 可替换为你的工作表名称，比如Sheets("Sheet1")
    Set ws = ActiveSheet
    ' 获取A列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 初始化基础日期为A1的今日日期
    baseDate = ws.Range("A1").Value
    
    ' 遍历从第4行开始的所有数据行
    For i = 4 To lastRow
        ' 判断当前行是否在SP行之后，是的话用SP的结果作为基础日期
        If ws.Cells(i, "A").Value = "SP" Then
            baseDate = ws.Range("A1").Value
        ElseIf i > ws.Range("A:A").Find("SP").Row Then
            baseDate = spResult
        End If
        
        ' 提取时长的数字和单位
        durationNum = Val(Left(ws.Cells(i, "B").Value, InStr(ws.Cells(i, "B").Value, " ") - 1))
        durationUnit = Trim(Right(ws.Cells(i, "B").Value, Len(ws.Cells(i, "B").Value) - InStr(ws.Cells(i, "B").Value, " ")))
        
        ' 根据单位计算增量日期
        Select Case durationUnit
            Case "Day"
                calcDate = baseDate + durationNum
            Case "Month"
                calcDate = DateAdd("m", durationNum, baseDate)
            Case "Year"
                calcDate = DateAdd("yyyy", durationNum, baseDate)
        End Select
        
        ' 调整为工作日
        workdayDate = Application.WorkDay(calcDate, 0)
        
        ' 格式化输出到C列
        ws.Cells(i, "C").Value = Format(workdayDate, "mm/dd/yyyy")
        
        ' 记录SP行的计算结果，供后续行使用
        If ws.Cells(i, "A").Value = "SP" Then
            spResult = workdayDate
        End If
    Next i
End Sub

4. 返回Excel界面，按下Alt + F8，选择CalculateWorkdayDates宏并运行，C列会自动填充所有计算结果

宏优势说明： #

• 自动识别SP行位置，无需手动指定行号
• 批量处理所有数据行，自动完成增量计算、工作日调整和格式设置
• 适合重复使用或处理大规模数据场景

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