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