Excel中符合特定条件的时间戳平均耗时求和问题

嘿，我来帮你搞定这个Excel自动化需求！咱们一步一步来实现：

因为要实现「输入数据后自动填充」的触发式效果，普通公式没法做到，所以得用VBA的工作表变更事件来处理。操作步骤如下：

• 打开你的Excel文件，按下 Alt + F11 打开VBA编辑器
• 在左侧「工程资源管理器」里，双击你要设置的目标工作表（比如Sheet1）
• 在右侧代码窗口粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 关闭事件触发，避免循环执行（不然填完时间戳会再次触发变更事件）
    Application.EnableEvents = False
    
    ' 处理A列输入后，对应B列生成时间戳
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        Dim cellA As Range
        For Each cellA In Intersect(Target, Me.Columns("A"))
            If cellA.Value <> "" Then
                ' 填充当前时间并设置格式
                Me.Cells(cellA.Row, "B").Value = Now()
                Me.Cells(cellA.Row, "B").NumberFormat = "yyyy-mm-dd hh:mm:ss"
            Else
                ' 若A列清空，同步清空B列时间戳
                Me.Cells(cellA.Row, "B").ClearContents
            End If
        Next cellA
    End If
    
    ' 处理E列输入后，对应F列生成时间戳
    If Not Intersect(Target, Me.Columns("E")) Is Nothing Then
        Dim cellE As Range
        For Each cellE In Intersect(Target, Me.Columns("E"))
            If cellE.Value <> "" Then
                ' 填充当前时间并设置格式
                Me.Cells(cellE.Row, "F").Value = Now()
                Me.Cells(cellE.Row, "F").NumberFormat = "yyyy-mm-dd hh:mm:ss"
            Else
                ' 若E列清空，同步清空F列时间戳
                Me.Cells(cellE.Row, "F").ClearContents
            End If
        Next cellE
    End If
    
    ' 重新开启事件触发
    Application.EnableEvents = True
End Sub

• 保存文件时要选「Excel 启用宏的工作簿（*.xlsm）」格式，不然宏会失效！

在H2单元格（假设数据从第2行开始）输入以下公式，再下拉填充到所有行：

=IF(AND(B2<>"",F2<>""), F2-B2, "")

逻辑很简单：只有当B、F列都有时间戳时，才计算两者的时间差，否则保持空白。
提示：选中H列右键设置单元格格式，选「自定义」输入 [h]:mm:ss，就能正常显示超过24小时的累计时长啦！

找个空白单元格（比如J1），输入下面的公式，就能自动计算所有已得出耗时的行的平均值：

=AVERAGEIF(H:H, "<>")

这个公式会自动忽略H列的空白单元格，只统计有有效耗时的行。如果你的数据范围不是整列，也可以改成具体范围，比如 AVERAGEIF(H2:H100, "<>")。

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