EXCEL表格单元格中包含数字英文和汉字，如何自动去掉汉字，保留英文和数字

有个自定义函数，不知道你会用不？

Function 求数字和字母(对象 As String) '在文本与数字混杂中提取数字和字母
Dim myReg
Set myReg = CreateObject("vbscript.Regexp")
myReg.Global = True
myReg.Pattern = "[\u4e00-\u9fa5]"
求数字和字母 = myReg.Replace(对象, "")
Set myReg = Nothing
End Function

参考资料：http://zhidao.baidu.com/question/58745408.html

建议用宏本回答被提问者采纳