Wie entfernt man nicht-englische Zeichen in einer Excel-Spalte?

Zum Beispiel ist hier eine Namensliste, die einige nicht-englische Zeichen enthält. Wie können Sie schnell die Zellen entfernen, die nicht-englische Zeichen in Excel enthalten?

Zeilen mit nicht-englischen Zeichen per VBA entfernen

Nicht-englische Zeichen aus Zeichenfolgen mit Kutools für Excel entfernen

Zeilen mit nicht-englischen Zeichen per VBA entfernen

Hier ist ein VBA-Code, der die Zeilen entfernen kann, die nicht-englische Zeichen in Excel enthalten.

1. Aktivieren Sie das Arbeitsblatt, das die zu entfernenden Zeichen enthält, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modul ein.

VBA: Nicht-englische Zeichen entfernen

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. Drücken Sie F5 , um die Spaltenliste auszuwählen, die Sie im erscheinenden Dialog verwenden möchten.

4. Klicken Sie auf OK > OK, und dann wurden die Zeilen mit nicht-englischen Zeichen entfernt.

Hinweis: Dieses VBA funktioniert nur für eine Spalte.

Nicht-englische Zeichen aus Zeichenfolgen mit Kutools für Excel entfernen

Wenn Sie nicht-englische Zeichen aus einer Zeichenfolge wie im folgenden Screenshot gezeigt entfernen möchten, können Sie die Funktion „Bestimmte Zeichen löschen“ von Kutools für Excel anwenden, um dies schnell zu erledigen.

1. Wählen Sie den Bereich aus, den Sie benötigen, und klicken Sie auf Kutools > Text > Bestimmte Zeichen löschen. Siehe Screenshot:

2. Aktivieren Sie Nicht-alphabetische Zeichen nur im Bestimmte Zeichen löschen Dialog. Sie können das Ergebnis in der Vorschau zuerst sehen.

3. Klicken Sie auf OK, die nicht-englischen Zeichen wurden aus den Zeichenfolgen entfernt.

Demo: Nicht-englische Zeichen aus Zeichenfolgen mit Kutools für Excel entfernen