如何刪除 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 刪除字串中的非英文字元