Wie entferne ich doppelte Zeichen oder Wörter in einer Excel-Zelle?
Beim Arbeiten mit Daten in Excel ist es ziemlich üblich, auf Situationen zu stoßen, in denen Zellen wiederholte Zeichen oder doppelte Wörter enthalten. Zum Beispiel könnten Sie benutzergenerierte Eingaben, exportierte Protokolle oder Produktcodes haben, in denen Zeichen oder Wörter mehrmals auftauchen können. Das Entfernen dieser Duplikate kann helfen, Ihre Daten für weitere Analysen zu bereinigen, die Lesbarkeit zu verbessern oder Zeichenfolgen zur Verwendung in anderen Systemen vorzubereiten.
Diese Anleitung stellt mehrere Methoden zum Entfernen von doppelten Zeichen oder doppelten Wörtern innerhalb einer einzigen Zelle vor. Sie können die am besten geeignete Lösung basierend auf Ihrer Excel-Version, Ihrem technischen Komfort und der Art des in Ihren Daten verwendeten Trennzeichens auswählen. Unabhängig davon, ob Ihre Daten einzelne Zeichen oder ganze Wörter umfassen, die durch Leerzeichen oder Interpunktion getrennt sind, gibt es unten einen praktischen Ansatz, den Sie verwenden können.
- Entfernen Sie doppelte Zeichen oder Wörter mit Excel-Formeln (dynamisches Array)
- Entfernen Sie doppelte Zeichen einer Textzeichenfolge mit einer benutzerdefinierten Funktion
- Entfernen Sie doppelte durch Interpunktion getrennte Wörter mit einer benutzerdefinierten Funktion
Entfernen Sie doppelte Zeichen oder Wörter mit Excel-Formeln (dynamisches Array)
Wenn Sie Microsoft 365 oder Excel 2021 und höher verwenden, können Sie dynamische Array-Formeln nutzen, um doppelte Zeichen oder Wörter aus einer Zelle zu entfernen – vollständig ohne VBA. Diese Funktionen wie TEXTSPLIT, UNIQUE, TEXTJOIN und MID machen es einfach, Zeichenfolgen direkt in Ihrem Arbeitsblatt zu teilen, zu deduplizieren und neu zusammenzufügen.
Diese Methode wird besonders empfohlen, wenn Sie keine Makros verwenden möchten, eine effiziente Lösung bevorzugen und mit den neuesten Formelfunktionen von Excel vertraut sind.
Vorteile: Wird bei Änderungen der Quelldaten sofort neu berechnet, es ist keine Makroaktivierung oder besondere Berechtigungen erforderlich, die Formel kann leicht auf große Datenbereiche angewendet werden.
Nachteile: Funktioniert nur in Excel für Microsoft 365, Excel 2021 oder neuer (funktioniert nicht in Excel 2019 oder früher).
So entfernen Sie doppelte Zeichen innerhalb einer Zelle (z. B. "Banane" → "Ban"):
1. Wählen Sie die Zelle aus, in der Sie das Ergebnis anzeigen möchten (z. B. Zelle B2 neben Ihrer Quellzelle A2) und geben Sie die folgende Formel ein:
=TEXTJOIN("",,UNIQUE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)))Diese Formel teilt den Inhalt von A2 mit MID in einzelne Zeichen auf, generiert sequenzielle Positionen mit ROW(INDIRECT(...)), extrahiert eindeutige Zeichen mit UNIQUE und kombiniert sie dann mit TEXTJOIN zurück zu einer Textzeichenfolge.
2. Drücken Sie die Eingabetaste. Das Ergebnis der Formel zeigt die Zeichenfolge in A2 mit entfernten doppelten Zeichen an, wobei die Reihenfolge beibehalten wird. Um denselben Vorgang für andere Zeilen anzuwenden, verwenden Sie den Ausfüllknauf, um die Formel nach Bedarf nach unten zu kopieren.
Hinweis: Wenn Sie einen #NAME?-Fehler sehen, unterstützt Ihre Excel-Version diese Funktionen möglicherweise nicht. Bitte überprüfen Sie, dass Sie Excel für Microsoft 365 oder Excel 2021 oder höher verwenden.
Problembehebung: Manchmal können zusätzliche Leerzeichen oder Interpunktion die Ergebnisse beeinträchtigen. Verwenden Sie TRIM oder TEXTSPLIT mit zusätzlichen Argumenten, falls Ihre Daten nicht konsistent formatiert sind.
Die Verwendung dynamischer Array-Formeln hilft, Ihren Workflow effizient und auf dem neuesten Stand zu halten und vereinfacht die Datenbereinigungsaufgaben sowohl für einfache als auch komplexe String-Muster.
Entfernen Sie doppelte Zeichen einer Textzeichenfolge mit einer benutzerdefinierten Funktion
Wenn Sie einen Bereich von Zellen mit Textzeichenfolgen haben und doppelte Zeichen aus jeder Zelle entfernen müssen – zum Beispiel, indem Sie "aabbcc" in "abc" umwandeln, wie unten dargestellt – kann eine benutzerdefinierte VBA-Funktion Ihnen dabei schnell helfen, insbesondere wenn Ihre Excel-Version keine erweiterten Array-Formeln unterstützt.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein. Stellen Sie sicher, dass Sie den Code am Anfang des Moduls hinzufügen, um Konflikte mit anderen Makros, die Sie möglicherweise haben, zu vermeiden.
VBA-Code: Entfernen Sie doppelte Zeichen einer Textzeichenfolge in einer Zelle
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
xChar = VBA.Mid(xValue, i, 1)
If xDic.Exists(xChar) Then
Else
xDic(xChar) = ""
xOutValue = xOutValue & xChar
End If
Next
RemoveDupes1 = xOutValue
End Function
3. Nachdem Sie das VBA-Codefenster gespeichert und geschlossen haben, kehren Sie zu Ihrem Arbeitsblatt zurück. Geben Sie diese Formel =removedupes1(A2) in eine leere Zelle neben Ihrem Originaltext ein (hier ist A2 die Zelle, die die zu bearbeitende Zeichenfolge enthält). Siehe Abbildung unten:
4. Drücken Sie die Eingabetaste, um das Ergebnis zu berechnen. Ziehen Sie den Ausfüllknauf nach unten, um die Funktion auf alle anderen relevanten Zellen in der Spalte anzuwenden, und Sie werden sehen, dass alle doppelten Zeichen aus jeder entsprechenden Zelle sofort entfernt werden.
Tipp: Die Reihenfolge des Auftretens wird beibehalten – die Funktion behält das erste Auftreten jedes Zeichens und entfernt nachfolgende Duplikate innerhalb der Zelle.
Vorsicht: Benutzerdefinierte Funktionen (UDFs), die über VBA hinzugefügt wurden, sind nur im Arbeitsbuch verfügbar, in dem der Code gespeichert ist. Wenn Sie Ihr Arbeitsbuch verschieben oder teilen, stellen Sie sicher, dass das Makro im Ziel-Datei enthalten oder erneut eingefügt wird. Außerdem müssen Makros aktiviert sein, damit der Code ausgeführt werden kann.
Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Entfernen Sie doppelte durch Interpunktion getrennte Wörter mit einer benutzerdefinierten Funktion
In Situationen, in denen Ihre Daten aus durch Interpunktion getrennten Wörtern bestehen – wie Kommas, Semikolons oder anderen Symbolen – möchten Sie möglicherweise wiederholte Wörter innerhalb jeder Zelle entfernen, während Sie nur das erste Auftreten jedes Wortes beibehalten. Dies ist besonders nützlich für Taglisten, Kategorien oder Adressen. Sie können dies effizient mit einer angepassten VBA-Funktion erreichen.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein. Platzieren Sie den Code am Anfang eines neuen Moduls, falls möglich, für mehr Klarheit.
VBA-Code: Entfernen Sie doppelte durch Interpunktion getrennte Wörter einer Zelle
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. Nachdem Sie das VBA-Fenster gespeichert und geschlossen haben, gehen Sie zurück zu Ihrem Arbeitsblatt. Geben Sie in einer leeren Spalte neben Ihren Daten diese Formel ein: =RemoveDupes2(A2,","). Hier bezieht sich A2 auf Ihre Ziellzelle und "," gibt das Satzzeichen an, das als Trennzeichen verwendet wird. Sie können dieses Komma durch ein anderes Zeichen (wie ";" oder Leerzeichen) ersetzen, wenn Ihre Wörter durch unterschiedliche Satzzeichen getrennt sind.
4. Drücken Sie die Eingabetaste, um zu bestätigen, dann ziehen Sie die Formel nach unten, um andere Zellen darunter nach Bedarf auszufüllen. Nach diesem Schritt werden alle doppelten Wörter aus ihren jeweiligen Zellen entfernt, wobei eindeutige Wörter in der ursprünglichen Reihenfolge verbleiben. Siehe Ergebnis unten:
Hinweis: In der Formel können Sie sowohl die Zellreferenz als auch das Interpunktions-Trennzeichen je nach Ihren Daten ändern. Wenn mehrere Zeichen oder verschiedene Arten von Trennzeichen (wie Leerzeichen und Komma kombiniert) verwendet werden, kann eine weitere Codeanpassung erforderlich sein.
Tipp: Wie bei allen VBA-Makros sollten Sie eine Sicherungskopie Ihres Arbeitsbuchs aufbewahren und Makros aktivieren, um diese Funktion zu verwenden.
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