如何用VBA从Excel单元格混合字符串中分离字母数字字符

针对你的需求，下面提供两种修改方案，分别对应不同的提取逻辑：

方案1：提取所有字母数字字符（逐个字符筛选） #

这个方案会遍历字符串的每个字符，收集所有字母（大小写）和数字，忽略其他非字母数字字符：

Function ExtractAlphanumeric(str As String) As String
    Dim numfromstring As String
    Dim i As Integer
    
    ' 遍历字符串的每一个字符
    For i = 1 To Len(str)
        ' 判断当前字符是否为字母或数字
        If Mid(str, i, 1) Like "[A-Za-z0-9]" Then
            numfromstring = numfromstring & Mid(str, i, 1)
        End If
    Next i
    
    ' 将收集到的结果作为函数返回值
    ExtractAlphanumeric = numfromstring
End Function

方案2：提取由字母数字组成的完整片段（按分割逻辑筛选） #

如果需要保留原代码的分割逻辑（把点替换为空格后分割字符串），提取其中仅由字母数字组成的完整片段，可使用以下代码：

Function ExtractAlphanumericSegments(str As String) As String
    Dim strarr() As String
    Dim numfromstring As String
    Dim i As Long
    
    ' 将字符串中的点替换为空格，用于后续分割
    str = Replace(str, ".", " ")
    ' 按空格分割字符串为数组
    strarr = Split(str)
    
    ' 遍历分割后的每个片段
    For i = 0 To UBound(strarr)
        ' 判断当前片段是否仅包含字母和数字（支持多字符片段）
        If strarr(i) Like "[A-Za-z0-9]*" And strarr(i) Like "*[A-Za-z0-9]" Then
            numfromstring = numfromstring & "," & strarr(i)
        End If
    Next i
    
    ' 移除结果开头多余的逗号（如果有内容的话）
    If Len(numfromstring) > 0 Then
        numfromstring = Mid(numfromstring, 2)
    End If
    
    ' 返回最终结果
    ExtractAlphanumericSegments = numfromstring
End Function

原代码的核心问题修正说明 #

1. 变量声明：原代码未声明numfromstring变量，添加Dim numfromstring As String避免隐式类型错误
2. 函数返回值：原代码未将结果赋值给函数名，导致无法返回内容，新增赋值语句确保结果输出
3. 匹配逻辑：原代码的Like "[A-Za-z0-9]"仅匹配单个字符，修改后支持多字符的字母数字片段（方案2）或逐个字符筛选（方案1）
4. 语义化命名：将无意义的函数名xxx改为ExtractAlphanumeric/ExtractAlphanumericSegments，提升代码可读性

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