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

例如，这里有一个包含一些非英文字符的名称列表。您如何快速删除Excel中包含非英文字符的单元格呢？

通过VBA删除包含非英文字符的行

使用Kutools for Excel删除字符串中的非英文字符

通过VBA删除包含非英文字符的行

这里有一个VBA代码，可以删除Excel中包含非英文字符的行。

1. 激活包含要删除字符的工作表，并按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到 模块 中。

VBA：删除非英文字符

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

3. 按下 F5 键，在弹出的对话框中选择要使用的 列。

4. 单击 确定 > 确定，然后包含非英文字符的行就会被删除。

备注：此VBA仅适用于一列。

使用Kutools for Excel删除字符串中的非英文字符

如果您想从字符串中删除非英文字符（如下截图所示），您可以应用 Kutools for Excel 的 删除特定字符 功能来快速完成。

1. 选择需要的 区域 并单击 Kutools > 文本 > 删除特定字符。参见截图：

2. 勾选 非字母字符 仅在 删除特定字符 对话框中，您可以在 预览 中首先看到结果。

3. 单击 确定，非英文字符已从字符串中删除。

演示：使用Kutools for Excel删除字符串中的非英文字符