Excel如何删除单元格中汉字、数字、符号、字母？

2024年11月28日 01:28

有5个网友回答

网友（1）：

查找替换可以完成任务。

1、选中所有需要去掉字母数字的单元格区域；

2、按CTRL+H

3、在查找框中输入输入a*

4、替换框中什么都不要输入；

5、全部替换就完成任务。

网友（2）：

如下图：

B2公式

=IF(LENB(A2)-LEN(A2),REPLACE(A2,MIN(IF(MID(A2,ROW($1:$99),1)>="吖",ROW($1:$99))),LENB(A2)-LEN(A2),),"")

C2公式

=IF(LENB(A2)-LEN(A2),MID(A2,MIN(IF(MID(A2,ROW($1:$99),1)>="吖",ROW($1:$99))),LENB(A2)-LEN(A2)),"")

均为数组公式，每输入完一个公式，均要按【CTRL+SHIFT+回车】后，再下拉填充。

其他两个由于涉及到0的问题暂无法给出解决办法。即使是这两个，也是有限制的，就是汉字必须是连续位置上，不能出现 “203汉94字DJ提N取”这种，否则就无法提取。

网友（3）：

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

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 = "[㸀-龥]"
Case 2
    .Pattern = "\D"
Case 3
    .Pattern = "[^a-zA-Z0-9]*"
Case 4
    .Pattern = "[^㸀-龥]"
End Select
delch = .Replace(str, "")
Set reg = Nothing
End With
End Function

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

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

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

需要允许宏和vba

网友（4）：

分别在B1B2中输入或复制粘贴下列公式
=RIGHT(A1,LENB(A1)-LEN(A1))
=LEFT(A2,LENB(A2)-LEN(A2))
其他类型可以复制粘贴到WORD 用编辑菜单下的替换命令处理后再复制粘贴回EXCEL.

网友（5）：

我来补充一个只留下数字的公式：

=MID(A2,MIN(IF(ISNUMBER(MID(A2,ROW($1:$99),1)*0),ROW($1:$99),"")),MAX(IF(ISNUMBER(MID(A2,ROW($1:$99),1)*0),ROW($1:$99),""))-MIN(IF(ISNUMBER(MID(A2,ROW($1:$99),1)*0),ROW($1:$99),""))+1)