excel 如何删除单元格内所有字母，数字，汉字

2024-11-11 23:01:47

推荐回答（4个）

回答（1）：

把下面这段代码考到需要替换字符的工作表对应的代码窗口中，按F5 运行，即可剔除所以字母和数字。

Sub aa()
Dim i, j, m As Integer
Dim delnumber As String
For i = 1 To 5
For j = 1 To 5
For m = 1 To Len(Cells(i, j))
If Asc(Mid(Cells(i, j), m, 1)) >= 48 And Asc(Mid(Cells(i, j), m, 1)) <= 57 Or Asc(Mid(Cells(i, j), m, 1)) >= 97 And Asc(Mid(Cells(i, j), m, 1)) <= 122 Or Asc(Mid(Cells(i, j), m, 1)) >= 65 And Asc(Mid(Cells(i, j), m, 1)) <= 90 Then
Else
delnumber = delnumber & Mid(Cells(i, j), m, 1)
End If
Next
Cells(i, j) = delnumber
delnumber = ""
Next
Next
End Sub

回答（2）：

去掉所有数字，查找替换0为空，然后替换1为空...

去掉所有字母，Excel不能用通配符，可复制到Word然后用查找替换-高级，[a-z],[A-Z] 替换为空，然后复制回Excel。

回答（3）：

选中表格，右键，清除内容。

回答（4）：

如果是删除数字
可以用定位-定位条件-常量-选择数值

字母很汉字的话一下也选不出，