要实现这个功能,您需要使用一个自定义函数。以下是修改后的内容:
1. 打开VBE编辑器:按Alt + F11,在工作表内按Ctrl + Shift + 分号(,)打开VBE编辑器。
2. 插入模块:在VBE编辑器的左上方,点击工程管理器中的"插入"->"模块"。
3. 编写代码:在右侧的代码窗口中,粘贴以下代码:
```vba
Function RemoveChinese(str As String) As String
Dim objRegExp As Object
Set objRegExp = CreateObject("Microsoft.XML regularexpression")
With objRegExp
Global = True
Pattern = "[^[:alnum:][:space:]]"
Replace = str
End With
RemoveChinese = .Replace(str, "")
End Function
```
4. 使用函数:假设您的数据存储在A列,请在B1单元格中输入`=RemoveChinese(A1)`,即可得到剔除汉字后的值。
另外,如果只想保留前方的型号而删除后面的名称,也可以直接在B1单元格使用以下公式:
```vba
=LEFT(A1,MATCH(" ",MID(A1,ROW($1:$100),1),)-1))
```
请按Ctrl + Shift + 回车键结束输入公式。这样就能得到只保留前方型号而不包括后面的名称的结果。