如何批量去掉excel中的英文？

Question

excel同一格子中同时有中文和英文，怎么样批量把中文去掉，如下图

例如 ‘Not openning 没有开启’去掉英文，只剩“没有开启”
请各位大神帮忙。

Answer 1

1.打开要替换的excel，选中要替换的列，右键 -复制， 新建一word文档。

利用快捷键ctr+H ，调出“查找和替换” 在查找的内容中 输入“^$”，再点击“全部替换” 看是否为去掉了字母，关闭“查找和替换”。

2.把替换完的word的数据，全选，右键-复制。

3.切换到excel ,在开始选中的那几列上，右键“设置单元格格式”，在“数字”选择文本确定。

4.右键-选择“粘贴为无格式文本”。

5.大功告成。

Answer 2

1、首先在excel表格的单元格中输入中英文字符，需要将英文字符去除。

2、选中单元格，点击工具栏中的“查找和选择”并点击其中的“替换”选项。

3、在打开的“替换”对话框中，在“查找内容”后面输入“Not openning”；在“替换为”后面不输入内容，点击替换按钮。

4、即可将单元格中的英文字符删除只留下中文字符了。

本回答被网友采纳

Answer 3

1、首先在excel表格的单元格中输入中英文字符，需要将英文字符去除。

2、选中单元格，点击工具栏中的“查找和选择”并点击其中的“替换”选项。

3、在打开的“替换”对话框中，在“查找内容”后面输入“Not openning”；在“替换为”后面不输入内容，点击替换按钮。

4、即可将单元格中的英文字符删除只留下中文字符了。

Answer 4

这个用VBA代码吧。

代码如下（详见附件）

Sub test()
Dim reG As Object, rg As Range
Set reG = CreateObject("vbscript.regExp")
For Each rg In ActiveSheet.UsedRange
    With reG
        .Global = True
        .Pattern = "\w"
        rg.Value = .Replace(rg, "")
    End With
Next
End Sub

追问

这个代码有现成的嘛 ，哥。我不会写

追答

已上传

本回答被网友采纳

Answer 5

上传的代码有问题，会将数字也去掉了。若将
.Pattern = "\w"
改成
.Pattern = "[A-z]"
可以去掉英文字符，但不能去掉标点符号追问

请问运行到一半，这里报错：rg.Value = .Replace(rg, "")
是什么意思啊

追答

可能是你的代码修改存在错误，你仔细检查一下。