用VBA正则吧。
自定义函数如下(样本文件见附件)：
Function mm(ByVal mStr As String) As String
Dim regXp As Object
Set regXp = CreateObject("vbScript.regExp")
With regXp
.Global = True
.Pattern = "[一-龥]"
mm = .Replace(mStr, "")
End With
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024