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