Excel vba使用正则表达式处理联通官网导出的通话详单

Function trans(ltime As String)
Dim re As Object
Dim min As Object
Set re = CreateObject("VBScript.RegExp")
re.Global = True
re.Pattern = "([0-9]*)\u5206"
Set min = re.Execute(ltime)
If min.Count = 0 Then
rst = 1
Else
rst = min(0)
End If
trans = rst
End Function

Sub test()
Call trans("2分43秒")
Call trans("43秒")
End Sub