【vba】【excel】获取一个字符串的数字部分

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

主要是 正则表达式的，这个可以自己查阅