excel 通话时间求和公式 5分17秒 41秒 8分33秒 1分58秒 1分36秒 5分28秒 4分42秒 51秒 1分22秒 2分48秒

excel 通话时间求和公式 5分17秒 41秒 8分33秒 1分58秒 1分36秒 5分28秒 4分42秒 51秒 1分22秒 2分48秒

使用VBA做吧！
Sub XX()
  Dim i As Integer, total1 As Integer, total2 As Integer
  i = 1
  total1 = 0
  total2 = 0
  While Cells(i, 1) <> ""
    If Len(Cells(i, 1)) < 4 Then
     If Cells(i, 1) Like "*秒*" Then total2 = total2 + Replace(Cells(i, 1), "秒", "")
     If Cells(i, 1) Like "*分*" Then total1 = total1 + Replace(Cells(i, 1), "分", "")
    Else
     total1 = total1 + Replace(Split(Cells(i, 1), "分")(0), "分", "")
     total2 = total2 + Replace(Split(Cells(i, 1), "分")(1), "秒", "")
    End If
    i = i + 1
  Wend
  MsgBox total1 + CInt(total2 / 60) & "分 " & total2 Mod 60 & "秒"
End Sub
追问哥们，啥是VBA? 你能给我个现成的公式吗？

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息