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

版权声明：本文为jiaotashidi原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/jiaotashidi/p/5973927.html