Question

如何将excel同一个单元格内去掉汉字

只保留英文和阿拉伯数字，怎样去除汉字？

Answer 1

这个必须使用自定义函数：
1、在工作表内按alt + F11，打开VBE编辑器
2、在左上方工程管理器中点击右键——插入模块
3、在右边白色的代码窗口中粘贴以下代码：
Function del(str As String) As String
Dim objRegExp As Object
Set objRegExp = CreateObject("VBSCRIPT.REGEXP")
With objRegExp
.Global = True
.Pattern = "[\u4e00-\u9fa5]"
del = .Replace(str, "")
End With
End Function

4、假设你的数据在A列，现在你在B1中输入=del(a1) 就可以取到剔除汉字后的值

另外再猜测一下，你的意思可能是只保留前方的型号，而后面的商品名称去除，如果这样的话也可以直接在B1使用公式：
=LEFT(A1,MATCH(" ",MIDB(A1,ROW($1:$100),1),)-1)
输入完公式以后同时按ctrl + shift + 回车键结束

Answer 2

在EXCEL中没有单独的数字或者英文字母的通配符，你只能通过word来转换，如复制一列到word，然后ctrl+H 调出 替换菜单，查找内容为： [!^1-^127] ，同时选中通配符选项，直接替换，可删除所有中文，然后再复制回excel。
这样操作遇到excel有合并单元格时会出现小问题，需手工调整。

Answer 3

VBA写入，用代替函数获取。

追问

具体操作步骤麻烦讲一下

追答

见样表

Answer 4

这个必须使用自定义函数：
1、在工作表内按alt + F11，打开VBE编辑器
2、在左上方工程管理器中点击右键——插入模块
3、在右边白色的代码窗口中粘贴以下代码：
Function del(str As String) As String
Dim objRegExp As Object
Set objRegExp = CreateObject("VBSCRIPT.REGEXP")
With objRegExp
.Global = True
.Pattern = "[\u4e00-\u9fa5]"
del = .Replace(str, "")
End With
End Function

4、假设你的数据在A列，现在你在B1中输入=del(a1) 就可以取到剔除汉字后的值

另外再猜测一下，你的意思可能是只保留前方的型号，而后面的商品名称去除，如果这样的话也可以直接在B1使用公式：
=LEFT(A1,MATCH(" ",MIDB(A1,ROW($1:$100),1),)-1)
输入完公式以后同时按ctrl + shift + 回车键结束