Function getDigital(digital As String)
Dim regex As Object
Dim matches As Object
Dim match As Object
Dim output As String
'引入这个库
Set regex = CreateObject("VBScript.RegExp")
'数字的正则表达式
regex.Pattern = "\d+"
'开始匹配
Set matches = regex.Execute(digital)
'结果循环输出
For Each match In matches
output = output & match.Value
Next match
getDigital = output
End Function
主要是 正则表达式的,这个可以自己查阅