在excel VBA中查找字符串中的数字

Sub FindNumbersUsingRegExp()
    Dim str As String
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    
    ' 设置要查找的字符串
    str = "abc123xyz456"
    
    ' 创建正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式模式，这里表示查找一个或多个数字
    regEx.Pattern = "\d+"
    
    ' 执行正则表达式匹配
    Set matches = regEx.Execute(str)
    
    ' 遍历匹配结果
    For Each match In matches
        MsgBox match.Value
    Next match
End Sub

Sub FindNumbersUsingLoop()
    Dim str As String
    Dim i As Long
    Dim num As String
    
    ' 设置要查找的字符串
    str = "abc123xyz456"
    
    ' 遍历字符串的每个字符
    For i = 1 To Len(str)
        ' 判断字符是否为数字
        If IsNumeric(Mid(str, i, 1)) Then
            num = num & Mid(str, i, 1)
        End If
    Next i
    
    MsgBox num
End Sub