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