1天12小时2分钟
2小时24分钟
58分钟
10天1小38分钟
请教各位大神，这个格式的时间如何快速求和，因为涉及表和数据比较多，我从网上搜索好多都不适用，求大神指导，万分感谢。

做了个自定义公式 前提是你数据格式都是*天*小时*分钟的，单元格输入=a（a1）获取a1 总分钟数
Function a(str)
Dim ln, x, y, z, x1, y1, z1
ln = Len(str)
x = Application.Find("天", str, 1)
x = Application.IfError(x, 0)
y = Application.Find("小时", str, 1)
y = Application.IfError(y, 0)
z = Application.Find("分钟", str, 1)
z = Application.IfError(z, 0)
If x <> 0 Then
x1 = Mid(str, 1, x - 1)
Else
x1 = 0
End If
If y <> 0 Then
y1 = Mid(str, x + 1, y - x - 1)
Else
y1 = 0
End If
If z <> 0 Then
z1 = Mid(str, y + 2, z - y - 2)
Else
z1 = 0
End If
a = x1 * 1440 + y1 * 60 + z1
End Function