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