是否有VBA函数实现工时表任务开始时间为上一任务结束时间下一秒？

方案1：批量填充已有任务行的开始时间 #

如果需要一次性为所有已存在的任务行批量设置开始时间，可以使用这个宏：

Sub AutoFillStartTime()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你的工时表工作表名称
    Set ws = ThisWorkbook.Worksheets("工时表")
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row ' 假设结束时间在C列，定位最后一行数据
    
    ' 从第2行开始遍历（第1行是表头）
    For i = 2 To lastRow
        ' 上一行结束时间不为空时，当前行开始时间设为上一行结束时间+1秒
        If Not IsEmpty(ws.Cells(i - 1, "C").Value) Then
            ws.Cells(i, "B").Value = ws.Cells(i - 1, "C").Value + TimeSerial(0, 0, 1)
            ' 也可替换为：ws.Cells(i, "B").Value = ws.Cells(i - 1, "C").Value + 1 / 86400
            ' 强制设置单元格为时间格式
            ws.Cells(i, "B").NumberFormat = "hh:mm:ss"
        End If
    Next i
End Sub

方案2：实时自动生成下一行开始时间 #

如果希望在输入完上一行的结束时间后，立刻自动填充下一行的开始时间，可使用工作表Change事件实现：

1. 右键点击你的工时表工作表标签（比如「工时表」），选择「查看代码」
2. 在弹出的代码窗口中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetCol As Integer
    Dim targetRow As Integer
    
    ' 仅监听结束时间列的修改（假设结束时间在C列，对应第3列）
    targetCol = Target.Column
    targetRow = Target.Row
    
    If targetCol = 3 And targetRow >= 2 Then ' 从第2行（数据行）开始生效
        ' 确保修改的是单个单元格且内容不为空
        If Target.Cells.Count = 1 And Not IsEmpty(Target.Value) Then
            ' 下一行的开始时间列（假设是B列，对应第2列）
            With Me.Cells(targetRow + 1, 2)
                .Value = Target.Value + TimeSerial(0, 0, 1)
                .NumberFormat = "hh:mm:ss"
            End With
        End If
    End If
End Sub

调整说明 #

• 若你的表格结构不同：将代码中的列标识（比如"B"、"C"或数字2、3）替换为实际的开始/结束时间列即可
• TimeSerial(0,0,1)和1/86400都代表1秒，前者更直观，后者是Excel时间数值的计算逻辑（1天=1，1秒=1/(246060)）

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