[VBA]利用正则表达式创建函数处理字符串

1、去除字符串中的数字

Function aa(sr As Range)
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "\d+"
End With
aa = reg.Replace(sr, "")

End Function

 

转载于:https://www.cnblogs.com/susuye/p/7197857.html