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

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
==================

excel中，可以将一列单元格中的汉字/英文去掉，只留下数字吗？

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