如何在Excel列中刪除非英語字元？

MS Excel 微軟技術高階Excel函式

像Microsoft Excel這樣的強大軟體經常用於資料分析、處理和組織。處理包含不同語言字元的資料集有時會很困難，尤其是在需要過濾或清理資料時。

本分步教程將向您展示如何查詢並從Excel列中刪除非英語字元。無論您是處理雜亂的資料、外語輸入，還是想要從分析中刪除的特殊字元，本課程都將為您提供有效清理資料並確保其符合您的語言標準所需的知識。

刪除非英語字元

在這裡，我們可以使用VBA應用程式來完成此任務。讓我們來看一個簡單的過程，瞭解如何在Excel列中刪除非英語字元。

步驟1

考慮一個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