自定义了五个函数，分别为去掉字符串中的数字、字母、点等特殊符号、空格以及一次去掉所有以上项目，此五个函数可分开单独使用，也可合并使用。（需要启用宏）
使用效果图
以下为函数源码：
Function DELDIG(txt)
Dim obj As Object
Set obj = CreateObject("vbscript.regexp") '创建正则表达式对象
obj.Global = True '表示查找所有满足匹配条件的字符串
obj.Pattern = "[0-9]" '匹配条件:查找所有数字
DELDIG = obj.Replace(txt, "") '替换掉数字
Set obj = Nothing '释放内存
End Function
‘====================================
Function DELCHAR(txt)
Dim obj As Object
Set obj = CreateObject("vbscript.regexp") '创建正则表达式对象
obj.Global = True '表示查找所有满足匹配条件的字符串
obj.ignorecase = True '表示不区分大小写
obj.Pattern = "[a-zA-Z]" '匹配条件:查找所有字母
DELCHAR = obj.Replace(txt, "") '替换掉字母
Set obj = Nothing '释放内存
End Function
‘====================================
Function DELDD(txt)
Dim obj As Object
Set obj = CreateObject("vbscript.regexp") '创建正则表达式对象
obj.Global = True '表示查找所有满足匹配条件的字符串
obj.ignorecase = True '表示不区分大小写
obj.Pattern = "[.-、-,，]" '匹配条件:查找所有.
DELDD = obj.Replace(txt, "") '替换掉.
Set obj = Nothing '释放内存
End Function
‘====================================
Function DELKG(txt)
Dim obj As Object
Set obj = CreateObject("vbscript.regexp") '创建正则表达式对象
obj.Global = True '表示查找所有满足匹配条件的字符串
obj.ignorecase = True '表示不区分大小写
obj.Pattern = "[ ]" '匹配条件:查找所有空格
DELKG = obj.Replace(txt, "") '替换掉空格
Set obj = Nothing '释放内存
End Function
‘====================================
Function DELall(txt)
Dim obj As Object
Set obj = CreateObject("vbscript.regexp") '创建正则表达式对象
obj.Global = True '表示查找所有满足匹配条件的字符串
obj.ignorecase = True '表示不区分大小写
obj.Pattern = "[0-9 a-zA-Z .-、-,，]" '匹配条件:查找所有.
DELall = obj.Replace(txt, "") '替换掉.
Set obj = Nothing '释放内存
End Function
