EXCEL中时间累加自动求和

发布网友 发布时间：2022-04-21 22:40

我来回答

共5个回答

热心网友 时间：2023-08-09 21:12

如果行数少还好办，多了我真不知道怎么写这个了，太长了！笨方法如下：
=LEFT(A1,FIND("时",A1)-1) + LEFT(A2,FIND("时",A2)-1) + LEFT(A3,FIND("时",A3)-1) + IF((MID(A1,FIND("时",A1)+1,LEN(A1)-FIND("时",A1)-1) + MID(A2,FIND("时",A2)+1,LEN(A2)-FIND("时",A2)-1) + MID(A3,FIND("时",A3)+1,LEN(A3)-FIND("时",A3)-1))>=60,1)&"时"& IF((MID(A1,FIND("时",A1)+1,LEN(A1)-FIND("时",A1)-1) + MID(A2,FIND("时",A2)+1,LEN(A2)-FIND("时",A2)-1) + MID(A3,FIND("时",A3)+1,LEN(A3)-FIND("时",A3)-1))>-60,(MID(A1,FIND("时",A1)+1,LEN(A1)-FIND("时",A1)-1) + MID(A2,FIND("时",A2)+1,LEN(A2)-FIND("时",A2)-1) + MID(A3,FIND("时",A3)+1,LEN(A3)-FIND("时",A3)-1))-60) &"分"

热心网友 时间：2023-08-09 21:13

A4=TEXT(SUMPRODUCT(VALUE(SUBSTITUTE(SUBSTITUTE(A1:A3,"时",":"),"分",":00"))),"[h]时m分")
公式右拉追问非常感谢！这个公式最简单明了，但是有一点不足，不能有空白的单元格，空白的必须输入0时0分，要不没发算，不过真的要谢谢你。还有，如果别的朋友要用此公式时，先设置一下单元格格式为：文本格式（最好是这个格式），或者是常规格式。

热心网友 时间：2023-08-09 21:13

Sub 求和()
Dim Ls As Long, zheng As Long, yu As Long
For i = 1 To 65536
If Sheet1.Cells(i, 1) = "" Then Ls = i - 1: Exit For
Next i
If Ls < 1 Then Exit Sub
Dim he1(1 To 4) As Long, he2(1 To 4) As Long
For j = 1 To 4
For i = 1 To Ls
he1(j) = he1(j) + Val(Split(Sheet1.Cells(i, j), "时")(0))
he2(j) = he2(j) + Val(Split(Split(Sheet1.Cells(i, j), "时")(1), "分")(0))
Next i
zheng = he2(j) \ 60: yu = he2(j) Mod 60
Sheet1.Cells(Ls + 1, j) = he1(j) + zheng & "时" & yu & "分"
Next j
End Sub
这是一个宏直接复制运行就OK

热心网友 时间：2023-08-09 21:14

=SUM(VALUE(LEFT(A1:A3,FIND("时",A1:A3)-1)))&"时"&SUM(VALUE(MID(A1:A3,FIND("时",A1:A3)+1,FIND("分",A1:A3)-FIND("时",A1:A3)-1)))
三键CTRL+SHIFT+回车

热心网友 时间：2023-08-09 21:14

你可以试下分列求和。就是把小时拆在一个单元格中，分钟拆在一个单元格中，然后再进行求和。当然你也可以用函数来解决这个问题。TEXT