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

强大的软件如Microsoft Excel经常用于数据分析、操作和组织。当您需要过滤或清理包含不同语言字符的数据时，使用包含不同语言字符的数据集可能会有困难。

这个逐步教程将向您展示如何从Excel列中定位和删除非英文字符。无论您是否使用混乱的数据、外语输入或想要从分析中删除的特殊字符，本课程将为您提供所需的知识，确保数据清理符合您的语言标准。

删除非英文字符

这里，我们可以使用VBA应用程序来完成任务。让我们看一个简单的过程，了解如何在Excel列中删除非英文字符。

步骤1

考虑一个Excel表格，其中有带有非英文字符的单元格，类似于下面的图片。

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

首先，右键单击工作表名称，选择“查看代码”以打开VBA应用程序。

右键单击 > 查看代码。

步骤2

然后单击“插入”并选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub RemoveNonEnglish()
   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:", "Remove Non-English", Selection.Address, , , , , 8)
   On Error GoTo 0 ' Always reset error handling after using it
   If xRg Is Nothing Then Exit Sub
   Application.ScreenUpdating = False
   xRows = xRg.Rows.Count
   For I = xRows To 1 Step -1 ' Looping backward to avoid issues with deleting rows
      Set xCell = xRg.Cells(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
               Exit For ' Exit the inner loop when a non-English character is found
            End If
         Next J
      End If
   Next I
   Application.ScreenUpdating = True
   MsgBox "Completed...", vbInformation
End Sub

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