在excel vba中拆分数字和文本

Sub SplitDigitsAndText()
    Dim cell As Range
    Dim text As String
    Dim digits As String
    Dim regex As Object
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    With regex
        ' 匹配连续的数字
        .Pattern = "\d+"
        .Global = True
    End With
    
    ' 遍历选定的单元格范围
    For Each cell In Selection
        ' 提取文本部分
        text = regex.Replace(cell.Value, "")
        
        ' 提取数字部分
        digits = regex.Execute(cell.Value)(0).Value
        
        ' 打印拆分结果
        Debug.Print "文本: " & text
        Debug.Print "数字: " & digits
    Next cell
End Sub