excel保留英文

刘琳 饰 七蛛女简介 着黄李鸿昌 饰 多目怪

只能写VBA去解决。指定范围内的字符保留，其它字符删除。

=MIDB(SUBSTITUTE(A1,"ML",""),SEARCHB("?",SUBSTITUTE(A1,"ML","")),MAX(IFERROR(SEARCHB(CHAR(ROW($A$97:$A$122)),SUBSTITUTE(A1,"ML","")),""))-MIN(IFERROR(SEARCHB(CHAR(ROW($A$97:$A$122)),SUBSTITUTE(A1,"ML","")),""))+1)

CRTL+SHIFT+ENTER三键结束，下拉

如果不含第二列，使用公式处理有点难度，下边就分享一下VBA程序代码处理。

①程序代码如下：

Sub Del321()

Dim i1, i2, i3, i4, i5

On Error Resume Next '忽略可能出现的错误

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1

For i1 = 1 To 10000 '第1到10000行

If mysheet1.Cells(i1, 1) <> "" Then '单元格不是空白时

i2 = Len(mysheet1.Cells(i1, 1)) '获取单元格字符长度

For i3 = 1 To i2

If Asc(Mid(mysheet1.Cells(i1, 1), i3, 1)) < 0 Then '如果是汉字

mysheet1.Cells(i1, 3) = Left(mysheet1.Cells(i1, 1), i3 - 1) '截取字符

Exit For '退出For循环

End If

If i3 = i2 Then '均不含汉字

mysheet1.Cells(i1, 3) = Left(mysheet1.Cells(i1, 1), i3)

Exit For

End If

Next

End If

Next

End Sub

②执行之前如下截图：

③执行之后如下截图：

英文和中文是在同一个单元格吗？还是分开不同单元格的？不同情况比较简单的处理办法如下：1、如果是不同单元格的，可以对这一列排序，这样英文就会被排在一起，就可以直接删除了。2、如果是中英文混在一个单元格里，可以把这一列复制到一个空白的word文档中，然后全选，Ctrl+F，替换，更多，在“使用通配符”前打钩，然后在上面的“查找内容”框里输入：[a-z,A-Z]，确定即可把英文字符全部替换掉，然再把word中的结果复制回excel中。