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 正则表达式去掉数字  下面用""把字母抹杀了

话说VBS也挺有意思的  哈哈 脚本代码

做EXCEL写VBA用到

转载于:https://www.cnblogs.com/ppgs8903/archive/2011/12/01/4343297.html