紧急！！有没有什么办法能把excel表格里除汉字和英文外的字符去掉？

按下ALT+F11,菜单-插入-模块,复制下列代码退出.
用法:假设你的数据在A列.你在B1输入=dele(a1),然后向下填充公式.
B列就是你要的数据.

Public Function dele(n As String) As String
Dim a() As String
Dim sum As String
ReDim a(1 To Len(n)) As String
sum = ""
For x = 1 To Len(n)
If Asc(Mid(n, x, 1)) >= 65 Or Asc(Mid(n, x, 1)) < 0 Then
a(x) = Mid(n, x, 1)
Else
a(x) = ""
End If
Next
For y = 1 To Len(n)
sum = sum & a(y)
Next
dele = sum
End Function