一、问题的提出
现在有很多表格数据从系统导出，或者从网上下载得到的，有时会有一些特殊的字符，影响后续的数据处理。
二、代码如下
Function qczf(a)
With CreateObject("vbscript.RegExp")
.Global = True
.ignorecase = True
.Pattern = "[^0-9A-Za-z一-龥]"
qczf = .Replace(a, "")
End With
End Function
注：这个是将数字、字母以及中文以外的其他字符全部清除。实际使用中，可根据实际情况做调整。