1、去除字符串中的数字
Function aa(sr As Range)Set reg = CreateObject("vbscript.regexp")With reg.Global = True.Pattern = "d+"End Withaa = reg.Replace(sr, "")
End Function