从 Excel 单元格添加多个时间值

Question 1

尝试以下用户定义函数：

Public Function tsum(rng As Range) As String
    Dim t As Date, cell As Range
    For Each cell In rng
        t = t + TimeValue(cell.Text)
    Next cell
    tsum = Format(t, "hh:mm:ss")
End Function

笔记：

要获取真正的 Excel 日期/时间，只需像这样包装函数：

=TIMEVALUE(tsum(E16:E18))

并以您喜欢的任何格式。

Answer

尝试以下用户定义函数：

Public Function tsum(rng As Range) As String
    Dim t As Date, cell As Range
    For Each cell In rng
        t = t + TimeValue(cell.Text)
    Next cell
    tsum = Format(t, "hh:mm:ss")
End Function

笔记：

要获取真正的 Excel 日期/时间，只需像这样包装函数：

=TIMEVALUE(tsum(E16:E18))

并以您喜欢的任何格式。

Question 2

：警告：

以下展示方法基于OP分享的样本数据。

您在中使用的 TIME 值F16:F18不需要任何特殊方法或公式，因为您可以使用简单的获得预期结果SUM function。

我向你展示四种可能性。

可能性 1：

应用的单元格格式为 TIME。
由于时间以开头，00因此 Excel 将它们转换为12。
使用的公式是：=SUM(O18:O20)

可能性 2：

应用的单元格格式为自定义HH:MM:SS。
使用的公式是：=SUM(P18:P20)

可能性 3：

时间以十进制值输入。
应用的单元格格式为常规。
使用的公式是：=tSUM(Q18:Q20)，@Gary's Student 建议的 UDF。

可能性 4：

时间以十进制值输入。
应用的单元格格式为常规。
使用的公式是一个数组（CSE），需要以Ctrl+Shift+Enter：

{=TEXT(SUM(RIGHT(Q18:Q20,5)+0),"00.00")}

注意：

您可以使用任何方法，最适合的是Possibility 1 and 2，适合在中输入的数据F16:F18。
根据需要调整公式中的单元格引用，

Answer