Excel VBA如何指定除数字和小数点外的所有字符为Split分隔符？

直接用Split函数没法实现反向指定分隔符（即排除0-9和小数点，剩下的都当成分隔符），因为Split只能指定具体的分隔符字符/字符串，不能反向排除。针对你的需求，推荐两种高效的处理方法：

方法一：正则表达式提取（推荐，适合大量数据） #

正则可以直接匹配你需要保留的数字片段（整数或带单个小数点的小数），一步到位，效率更高。

代码示例 #

Sub ExtractNumbersWithRegEx()
    Dim inputStr As String
    inputStr = "aei jt098_374!6.90*9U35t9miK34=90^1-349j582ge&%$g2=045 un=n20#^9i1=n5g76]90 82n3]-568@2^68*)85f1=0947f]287j"
    
    ' 创建正则对象（Late Binding，无需引用库）
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True ' 开启全局匹配，提取所有符合条件的片段
        ' 匹配规则：整数（如098）或小数（如6.90），覆盖所有合法数字格式
        .Pattern = "\d+\.?\d*|\.\d+"
    End With
    
    ' 执行匹配，获取所有结果
    Dim matches As Object
    Set matches = regEx.Execute(inputStr)
    
    ' 遍历输出结果（也可以写入单元格）
    Dim match As Object
    For Each match In matches
        Debug.Print match.Value
    Next match
End Sub

代码说明 #

• \d+\.?\d*：匹配整数（如9、35）或小数点后有数字的小数（如6.90）
• \.\d+：匹配小数点前无数字的小数（如果你的字符串里有这类情况，比如.123）
• 执行后会直接得到所有符合要求的数字片段，和你示例中的结果完全一致。

方法二：先替换分隔符再用Split #

如果一定要用Split，可以先把所有非数字、非小数点的字符替换成统一分隔符（比如逗号），再拆分后过滤无效内容。

代码示例 #

Sub ExtractNumbersWithSplit()
    Dim inputStr As String
    inputStr = "aei jt098_374!6.90*9U35t9miK34=90^1-349j582ge&%$g2=045 un=n20#^9i1=n5g76]90 82n3]-568@2^68*)85f1=0947f]287j"
    
    ' 用正则把所有非数字、非小数点的字符替换成逗号
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True
        .Pattern = "[^\d.]" ' 匹配所有非0-9、非小数点的字符
    End With
    Dim cleanedStr As String
    cleanedStr = regEx.Replace(inputStr, ",")
    
    ' 拆分字符串
    Dim tempArr() As String
    tempArr = Split(cleanedStr, ",")
    
    ' 过滤空字符串和无效的多小数点内容
    Dim resultArr() As String
    Dim cnt As Integer
    cnt = 0
    Dim strItem As String
    For Each strItem In tempArr
        If strItem <> "" And (InStr(strItem, ".") = 0 Or (Len(Replace(strItem, ".", "")) > 0)) Then
            ReDim Preserve resultArr(cnt)
            resultArr(cnt) = strItem
            cnt = cnt + 1
        End If
    Next strItem
    
    ' 输出结果
    For Each strItem In resultArr
        Debug.Print strItem
    Next strItem
End Sub

代码说明 #

• 先通过正则替换统一分隔符，再用Split拆分，最后过滤掉拆分后产生的空字符串和包含多个小数点的无效内容，得到目标数字片段。

内容的提问来源于stack exchange，提问作者Dan