贡献一个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用到