在excel中怎样删除单元格中全部中文字符

假如数据在A列，从A1开始，在B列保留英文，在C列保留中文
在B1中输入：
=LEFT(A1,LEN(A1)*2-LENB(A1))
在C1中输入：
=RIGHT(A1,LENB(A1)-LEN(A1))
然后选择B1和C1,下拉复制
复制B列和C列--原地右击--选择性粘贴--数值
即可
希望对你有点帮助。

---

用自定义函数---功能范围: 处理任何文本皆可

Function delch(str As String, Optional i As Integer = 1) As String
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
With reg
    .Global = True
Select Case i
Case 1
    .Pattern = "[\u3E00-\u9FA5]"
Case 2
    .Pattern = "\D"
Case 3
    .Pattern = "[^a-zA-Z0-9]*"
Case 4
    .Pattern = "[^\u3E00-\u9FA5]"
End Select
delch = .Replace(str, "")
Set reg = Nothing
End With
End Function

输入 =delch(A1,1)为1删除汉字 2留下数字 3字母和数字 4留下汉字

重写了下函数 完成你的任务 来给个满分吧

进入excel界面后alt+F11 插入模块 输入以上代码 即可

需要允许宏和vba

---

1.打开wps表格程序，进入程序主界面打开一张Excel表格。

2.接着，在上方的文档助手中点击“单元格处理”，点击打开。

3.在窗口中选中要处理操作的区域。

OK！！！！！！！！！

---

工具--宏--visual basic编辑器--插入模块--拷贝以下内容，
然后在表格里面填上公式 【=除汉字(A1)】，A1是“E2300中国3200S”等所在的单元格

Function 除汉字(rng As Range)
s = Len(rng.Text)
For i = 1 To s
txt = StrConv(Mid(rng.Text, i, 1), vbNarrow)
txt2 = StrConv(Mid(rng.Text, i, 1), vbWide)
If txt <> txt2 Then
除汉字 = 除汉字 & Mid(rng.Text, i, 1)
End If
Next i
End Function

https://www.jianshu.com/p/6178ace26a60

---

本文地址：https://www.jianshu.com/p/6178ace26a60.html
版权声明：本文为原创文章，版权归 sllovejwy 所有，欢迎分享本文，转载请保留出处！