VBA自定义函数代码如下：
Function mDate(mstr) As String
Dim regXp As Object
Set regXp = CreateObject("vbScript.regExp")
With regXp
.Global = False
.Pattern = "\d+\.\d+\.\d+\-\d+\.\d+\.\d+"
mDate = .Execute(mstr)(0)
End With
End Function
有图有真相有附件
内容全部来源于网络收集，如有侵权，请联系网站删除！