自定义的从字符串中提取字母及数字的VBA函数：

'提取所有字母及数字（包括全角及半角）：

Function ExtractAlphanumeric(strText As String) As String
    Dim lngI As Long
    Dim strChar As String
    Dim strTemp As String
    For lngI = 1 To Len(strText)
        strChar = Mid$(strText, lngI, 1)
        If strChar Like "[A-z0-9]" Then
            strTemp = strTemp & strChar
        End If
    Next
    ExtractAlphanumeric = strTemp
End Function




'只提取半角字母及数字：
Function ExtractAsciiAlphanumeric(strText As String) As String
    Dim lngI As Long
    Dim strChar As String
    Dim strTemp As String
    For lngI = 1 To Len(strText)
        strChar = Mid$(strText, lngI, 1)
        If (Asc(strChar) >= 65 And Asc(strChar) <= 90) or (Asc(strChar) >= 97 And Asc(strChar) <= 


122) or (Asc(strChar) >= 48 And Asc(strChar) <= 57) Then
            strTemp = strTemp & strChar
        End If
    Next
    ExtractAsciiAlphanumeric = strTemp
End Function