VB代码（\D 正则表达式去掉数字）

贡献一个VB正则去除字符串中的“数字”或“字母”的代

    Dim oRegExp As Object
    Dim strDest As String, strSource As String
    strSource = a
    Set oRegExp = CreateObject("VBscript.RegExp")
    oRegExp.Global = True
    oRegExp.Pattern = "\D"
    strDest = oRegExp.Replace(strSource, " ")
     b = Replace(Trim(WorksheetFunction.Trim(strDest)), " ", "")

\D 正则表达式去掉数字下面用""把字母抹杀了