Wie entfernt man nicht-englische Zeichen in einer Excel-Spalte?
Das Verwalten von Daten in Excel erfordert oft, dass Sie Text bereinigen, insbesondere wenn Sie mit Listen arbeiten, die unerwünschte oder inkonsistente Zeichen enthalten könnten. Zum Beispiel haben Sie möglicherweise eine Spalte mit Namen oder Einträgen, bei denen einige Zellen nicht-englische Zeichen wie Akzente, Sonderzeichen oder fremdsprachige Schriftzeichen enthalten – diese müssen Sie entfernen, um die Konsistenz der Daten sicherzustellen oder für weitere Verarbeitungen.
Das manuelle Entfernen solcher Zeichen kann sehr zeitaufwendig und fehleranfällig sein, insbesondere bei der Bearbeitung großer Datensätze. Um dieses Problem effizient zu lösen, bietet Excel mehrere Ansätze: Sie können VBA-Skripte verwenden, um automatisch Zeilen zu löschen, die nicht-englische Zeichen enthalten, oder Sie können die Daten direkt bereinigen, indem Sie nicht-englische Zeichen aus dem Text entfernen, während die Datenstruktur intakt bleibt. Hier stellen wir zwei praktische Lösungen vor, um Ihnen bei diesen Szenarien zu helfen.
Zeilen mit nicht-englischen Zeichen mit VBA entfernen
Nicht-englische Zeichen aus Zeichenketten mit Kutools für Excel entfernen
Nicht-englische Zeichen mit einer Excel-Formel entfernen
Nicht-englische Zeichen aus Zelltext mit VBA entfernen
Zeilen mit nicht-englischen Zeichen mit VBA entfernen
Wenn Sie ganze Zeilen, die nicht-englische Zeichen aus einer bestimmten Spalte in Excel enthalten, vollständig entfernen möchten, kann ein VBA-Skript diesen Prozess automatisieren. Dieser Ansatz ist besonders geeignet, wenn Sie sicherstellen möchten, dass nur Zellen mit Standard-Buchstaben des englischen Alphabets verbleiben, und jede Zelle mit fremdsprachigen Zeichen oder Sonderzeichen dazu führt, dass die gesamte Zeile gelöscht wird. Diese Methode ist besonders nützlich, um saubere Datensätze für Systeme vorzubereiten, die nur Standard-englische Zeichen akzeptieren.
Beachten Sie jedoch die Einschränkung, dass diese Methode immer nur eine Spalte auf einmal bearbeitet; Sie müssen das Skript separat für jede Spalte ausführen, wenn Sie es an anderer Stelle anwenden möchten. Außerdem können gelöschte Zeilen nach der Ausführung nicht wiederhergestellt werden, es sei denn, Sie haben eine Sicherungskopie erstellt oder können die Rückgängig-Funktion nutzen.
Hier ist eine Schritt-für-Schritt-Anleitung:
1. Öffnen Sie Ihre Excel-Arbeitsmappe, aktivieren Sie das Arbeitsblatt, das die zu bearbeitende Spalte enthält, und drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Damit greifen Sie auf die in Excel integrierte VBA-Programmierumgebung zu.
2. Klicken Sie im VBA-Editor auf Einfügen > Modul, um ein neues Modul zu erstellen, und kopieren Sie den folgenden VBA-Code in das erscheinende Codefenster:
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 oder klicken Sie auf die Ausführen Schaltfläche, um den Code auszuführen. Ein Dialogfeld wird erscheinen, das Sie auffordert "Einzelspalte auswählen". Wählen Sie mit der Maus die Spalte aus, die Sie in Ihrem Arbeitsblatt bearbeiten möchten, und klicken Sie dann auf OK.
4. Bestätigen Sie Ihre Auswahl, indem Sie auf OK in den darauf folgenden Dialogfeldern klicken. Das Skript überprüft nun jede Zelle in der ausgewählten Spalte. Wenn es ein Zeichen erkennt, das kein Groß- oder Kleinbuchstabe des englischen Alphabets (A-Z) ist, wird die gesamte Zeile, die diese Zelle enthält, gelöscht. Nach Abschluss sehen Sie eine Meldung, die Sie darüber informiert, dass der Vorgang abgeschlossen ist.
 |  |  |
Hinweis: Dieses VBA-Skript funktioniert immer nur für die Auswahl einer einzelnen Spalte. Es wird empfohlen, Ihre Arbeitsmappe vor dem Ausführen des Codes zu speichern, da gelöschte Zeilen nach der Operation nicht wiederhergestellt werden können. Wenn Ihre Daten groß sind oder spezielle Formatierungen enthalten, wird dringend empfohlen, vorher eine Sicherungskopie zu erstellen.
Tipps zur Fehlerbehebung: Wenn Sie eine Fehlermeldung sehen oder nichts passiert, überprüfen Sie, ob Sie eine gültige Spalte ausgewählt haben und nur eine Spalte (nicht einen Bereich über mehrere Spalten). VBA muss für die Ausführung dieses Skripts aktiviert sein. Wenn der VBA-Editor in Ihrer Umgebung gesperrt oder eingeschränkt ist, sollten Sie Berechtigungen aktivieren oder eine alternative Methode in Betracht ziehen.
Anwendbarkeit: Dieser Ansatz ist am besten, wenn Sie sicherstellen möchten, dass Ihre Daten nur Einträge mit reinen englischen Buchstaben enthalten und Sie keine Zeilen mit Sonderzeichen oder Fremdsprachen behalten müssen. Wenn Ihr Ziel jedoch darin besteht, die Daten beizubehalten, während Sie einfach nicht-englische Zeichen entfernen möchten – aber keine ganzen Zeilen löschen möchten –, sollten Sie die Kutools-Lösung oder andere unten stehende Methoden in Betracht ziehen.
Nicht-englische Zeichen aus Zeichenketten mit Kutools für Excel entfernen
Wenn Sie Text bereinigen möchten, indem Sie nicht-englische Zeichen innerhalb der Zellen entfernen – ohne Zeilen zu löschen – bietet die Funktion „Bestimmte Zeichen löschen“ in Kutools für Excel eine schnelle und praktische Lösung. Dies ist ideal für Szenarien, in denen Sie die Gesamtstruktur der Daten beibehalten möchten, aber alle Sonder-, Akzent- oder Fremdsprachen-Zeichen innerhalb der Zeichenketten entfernen möchten, sodass nur normale englische Buchstaben sichtbar bleiben.
Zum Beispiel ist dieser Ansatz ideal zum Standardisieren von Namen, Produktnummern oder beliebigen alphanumerischen Einträgen, die möglicherweise falsch eingegeben wurden oder aus externen Quellen kopiert wurden und dadurch verschiedene Symbole oder nicht-englische Zeichen enthalten. Im Vergleich zur manuellen Bereinigung reduziert dies das Risiko, unerwünschte Zeichen zu übersehen, und beschleunigt den Prozess.
 | |  |
1. Wählen Sie den Bereich aus, der die Textzeichenketten enthält, die Sie bereinigen möchten, und gehen Sie zur Kutools -Registerkarte im Excel-Menüband, klicken Sie auf Text, und wählen Sie Bestimmte Zeichen löschen aus dem Dropdown-Menü. Sehen Sie sich den folgenden Screenshot als Referenz an:
2. Aktivieren Sie im Bestimmte Zeichen löschen Dialogfeld, das erscheint, die Option für Nicht-alphabetisch (dies zielt auf nicht-alphabetische Zeichen ab, einschließlich Ziffern, Interpunktion und besonderen oder nicht-englischen Symbolen). Die Vorschau verändert sich automatisch, um Ihnen zu zeigen, wie der Text nach dem Entfernen nicht-englischer und Sonderzeichen aussehen wird.
3. Nachdem Sie bestätigt haben, dass die Vorschau Ihren Erwartungen entspricht, klicken Sie auf OK. Alle nicht-englischen Zeichen (also alles außer Standard-Buchstaben des englischen Alphabets) werden sofort aus dem ausgewählten Bereich entfernt, während der Rest Ihrer Daten unberührt bleibt.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Wenn Sie häufig Text in Excel bereinigen müssen, bietet der Kutools-Ansatz eine benutzerfreundliche, visuelle Oberfläche und verarbeitet große Datenbereiche effizient mit nur wenigen Klicks. Er bietet auch Unterstützung für die Rückgängig-Funktion, sodass Sie Änderungen schnell rückgängig machen können, falls die Ergebnisse nicht Ihren Anforderungen entsprechen.
Tipps und Vorsichtsmaßnahmen: Die Option 'Nicht-alpha' entfernt auch alle Zahlen oder Sonderzeichen im Text. Wenn Sie Zahlen oder andere spezifische Zeichen behalten möchten, experimentieren Sie mit verschiedenen Kontrollkästchen im Dialogfeld, bis Sie das gewünschte Ergebnis erreicht haben. Überprüfen Sie immer das Vorschaufenster, um die Wirkung zu bestätigen, bevor Sie auf OK klicken.
Vergleich: Diese Methode ist flexibler als das Löschen von Zeilen mit VBA, da sie nur unerwünschte Zeichen entfernt, nicht die gesamte Zeile, und daher weniger destruktiv und sicherer ist, wenn es ein Risiko gibt, wichtige Informationen zu verlieren, die mit jeder Zeile verbunden sind.
Nicht-englische Zeichen mit einer Excel-Formel entfernen
Wenn Sie keinen Zugriff auf Kutools haben oder VBA lieber nicht verwenden möchten, können Sie auch eine Excel-Formel verwenden, um nicht-englische Zeichen (alles außer Buchstaben des englischen Alphabets) aus dem Text in einer Zelle zu entfernen. Dieser Ansatz ist geeignet, wenn Sie eine nicht-destruktive, formelbasierte Lösung wünschen, die auf jede Zeile angewendet und problemlos auf andere Zellen kopiert werden kann.
1. Geben Sie die folgende Array-Formel in die erste Zelle Ihrer Ausgabespalte ein (z. B. B1, wenn Ihre Originaldaten in Spalte A stehen):
=TEXTJOIN("",TRUE,IF((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=65)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=90)+(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=97)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=122),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),""))Diese Formel überprüft jedes Zeichen in Zelle A1, behält es nur bei, wenn es ein Großbuchstabe (A-Z) oder Kleinbuchstabe (a-z) des englischen Alphabets ist, und kombiniert das Ergebnis in eine bereinigte Zeichenfolge.
2. Nachdem Sie diese Formel eingegeben haben, drücken Sie Strg+Umschalt+Eingabe (für Excel-Versionen vor Office 365; in Office 365 und höher können Sie einfach die Eingabetaste drücken). Kopieren Sie die Formel für alle relevanten Zeilen durch Ziehen des Ausfüllgriffs oder Doppelklicken in der unteren rechten Ecke der Zelle.
Parameter-Erklärung: Diese Formel nutzt die Funktionen TEIL, CODE (welches den ASCII-Code zurückgibt), INDIREKT und ZEILE, um jedes Zeichen in der Zielzelle zu verarbeiten. Nur Buchstaben a-z oder A-Z werden beibehalten.
Vorsichtsmaßnahmen: Dieser Ansatz ändert die Originaldaten nicht; die Ausgaben sind Formelergebnisse in der Zielspalte. Wenn Sie statische Werte benötigen, kopieren Sie die Ergebnisse und verwenden Sie 'Werte einfügen', um die Formeln zu überschreiben.
Einschränkungen: Die Textlänge beeinträchtigt die Formelleistung. Diese Methode kann Multi-Zeichen-Unicode-Grapheme möglicherweise nicht ordnungsgemäß verarbeiten, sodass einige visuell nicht-englische Zeichen möglicherweise erhalten bleiben, wenn sie durch zusammengesetzte Unicode-Sequenzen dargestellt werden.
Nicht-englische Zeichen aus Zelltext mit VBA entfernen
Wenn Sie nicht-englische Zeichen innerhalb von Zelltext entfernen möchten (ohne ganze Zeilen zu löschen), können Sie auch VBA für eine individuellere Automatisierung verwenden. Dies ist praktisch für Datenbereinigungsaufgaben, die häufig ausgeführt werden müssen, und wo Add-ins keine Option sind.
1. Öffnen Sie Excel und drücken Sie Alt + F11, um den Microsoft Visual Basic for Applications-Editor zu starten. Gehen Sie zu Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein:
Sub RemoveNonEnglishCharactersFromCells()
' Remove non-English characters, keep only a-z, A-Z
Dim rng As Range
Dim cell As Range
Dim i As Long
Dim ch As String
Dim output As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set rng = Application.InputBox("Select range to clean (cells will be altered):", xTitleId, rng.Address, Type:=8)
If rng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each cell In rng
output = ""
For i = 1 To Len(cell.Value)
ch = Mid(cell.Value, i, 1)
If (Asc(ch) >= 65 And Asc(ch) <= 90) Or (Asc(ch) >= 97 And Asc(ch) <= 122) Then
output = output & ch
End If
Next i
cell.Value = output
Next cell
Application.ScreenUpdating = True
MsgBox "Cleanup complete.", vbInformation
End Sub2. Gehen Sie zurück zu Excel, wählen Sie den Bereich aus, den Sie bereinigen möchten, kehren Sie zum VBA-Editor zurück und führen Sie den Code aus, indem Sie F5 drücken oder auf die Schaltfläche Ausführen klicken. Bestätigen Sie bei der Aufforderung den zu bearbeitenden Bereich.
Effekte: Dieser Code verarbeitet jede ausgewählte Zelle, entfernt alle Zeichen, die keine Standard-Buchstaben des englischen Alphabets sind, und aktualisiert die Zelle mit dem bereinigten Ergebnis. Ursprüngliche Daten werden überschrieben, daher ist es ratsam, Ihr Blatt zu sichern oder an einer Kopie zu arbeiten.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Demo: Nicht-englische Zeichen aus Zeichenketten mit Kutools für Excel entfernen
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins