使用 VBA 代码从 Excel 单元格内的混合字符字符串中分离字母数字字符

Question

我将数字字符与单元格内的一串混合字符分开。

Function xxx(str As String) As String
Dim strarr() As String
str = Replace(str, ".", " ")
strarr = Split(str)
Dim i As Long
For i = 0 To UBound(strarr)
    If strarr(i) Like "[A-Za-z0-9]" Then
        numfromstring = numfromstring & "," & strarr(i)
    End If
Next i

numfromstring = Mid(numfromstring, 2)
End Function

如何对字母数字字符执行相同的操作？

Answer 1

获取字母数字 UDF

Function GetAlphaNumeric( _
    ByVal Str As String, _
    Optional ByVal Delimiter As String = ",") _
As String
    
    Dim n As Long, Char As String, rStr As String
    
    For n = 1 To Len(Str)
        Char = Mid(Str, n, 1)
        If Char Like "[A-Za-z0-9]" Then rStr = rStr & Delimiter & Char
    Next n
    
    If Len(rStr) > 0 Then GetAlphaNumeric = Mid(rStr, 1 + Len(Delimiter))
    
End Function