Function takech (str As String) As String
Set regEx = CreateObject("VBScript.RegExp")With regEx '搜索整个字符串
.Global = True '匹配非汉字 也可以.Global = 1
.Pattern = "[^\u4e00-\u9fa5]" '也可以表达为:[^,!一-龥]. 意思是匹配除了全角逗号,感叹号和所有汉字的其它字符.
takech = .Replace(str, "") '将字符串中的非汉字替换为空
End With
End Function