Excel去除中文，只留英文和数字

刚刚在做表格时，由于对Office的不熟悉，于是竟然卡在Excel去除中文，只保留英文和数字上，搜了很久，很多网友都说需要复制到Word上进行操作，不过所幸被我找到了更好更方便的解决方法，于是转载过来分享下，感觉特别实用，其中“Alt+F11”打开开发者选项，具体操作如下：

在Excel中点击宏-》编辑器，右键添加模块，写入下面内容：

Function tet(s As String) As String 
    Dim str As String 
    str = "" 
    For i = 1 To Len(s) 
        If Strings.Asc(Mid(s, i, 1)) > 0 Then 
            str = str + Mid(s, i, 1) 
        End If 
    Next i 
    tet = str 
End Function

这就可以使用自定义函数了，=tet(A1)，就会得到结果。
--------------------- 
作者：BobHe 
来源：CSDN 
原文：https://blog.csdn.net/hegx2001/article/details/4737909 
版权声明：本文为博主原创文章，转载请附上博文链接！

 

介绍完了最实用的办法，这里再普及一下各路网友的方法，个人不太推荐，不过可以学学，就是先把Excel复制到Word里，然后用Word的替换功能进行批量替换操作，在替换框里，查找处输入[一-龥]，展开更多选中使用通配符，然后全部替换就好了。

如果标点符号之类也不需要的话，就用同样的方法在查找出输入([!a-zA-Z0-9])，然后同样的方法全部替换就好了。

以此类推，输出([!0-9])，然后选择全部替换就只保留数字，输入([!a-z])就只保留小写字母，输入([!A-Z])就只保留大写字母。

 

最后再感谢一下原文章的博主，不然我还得苦恼一晚上想想怎么完成去除中文的任务，嘻嘻。