如何在Excel列中删除非英文字符？

Sub RemoveNonEnglish() UpdatebyExtendoffice20171204 Dim xRg As Range Dim xCell As Range Dim I As Long Dim J As Long Dim xRows As Long Dim xAsc As Long On Error Resume Next Set xRg = Application.InputBox("Select single column:", "KuTools For Excel", Selection.Address, , , , , 8) If xRg Is Nothing Then Exit Sub Application.ScreenUpdating = False xRows = xRg.Rows.Count Set xRg = xRg(1) For I = 1 To xRows Set xCell = xRg.Offset(I - 1) If xCell.Value <> "" Then For J = 1 To Len(xCell.Value) xAsc = Asc(UCase(Mid(xCell.Value, J, 1))) If xAsc < 65 Or xAsc > 90 Then xCell.EntireRow.Delete I = I - 1 Exit For End If Next End If Next Application.ScreenUpdating = True MsgBox "Completed...", vbInformation End Sub

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。 

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！