Wie entfernt man doppelte Zeichen oder Wörter in einer Zeichenfolge einer Excel-Zelle?

Angenommen, es gibt doppelte Zeichen oder Wörter in jeder Zelle, und Sie möchten die Duplikate entfernen und nur eindeutige Zeichen oder Wörter behalten. Wie könnten Sie dieses Problem in Excel lösen?

Entfernen von doppelten Zeichen in einer Textzeichenfolge mit einer benutzerdefinierten Funktion

Entfernen von durch Interpunktion getrennten doppelten Wörtern mit einer benutzerdefinierten Funktion

Entfernen von doppelten Zeichen in einer Textzeichenfolge mit einer benutzerdefinierten Funktion

Wenn Sie eine Liste von Textzeichenfolgen haben, müssen Sie nun die doppelten Zeichen wie im folgenden Screenshot gezeigt entfernen. Hier kann ich über einen VBA-Code sprechen, um damit umzugehen.

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 in das Modulfenster ein.

VBA-Code: Doppelte Zeichen in einer Textzeichenfolge einer Zelle entfernen

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. Speichern und schließen Sie diesen Code, gehen Sie zurück zum Arbeitsblatt und geben Sie diese Formel =removedupes1(A2) (A2 ist die Datenzelle, aus der Sie Duplikate entfernen möchten) in eine leere Zelle neben Ihren Daten ein, siehe Screenshot:

4. Ziehen Sie dann den Ausfüllkursor über die Zellen des Bereichs, auf den Sie diese Formel anwenden möchten, und alle doppelten Zeichen werden sofort aus jeder Zelle entfernt.

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.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Entfernen von durch Interpunktion getrennten doppelten Wörtern mit einer benutzerdefinierten Funktion

Wenn es einige Wörter gibt, die durch bestimmte Interpunktionszeichen in einer Zelle getrennt sind, können Sie auch die doppelten Wörter nach Belieben entfernen. Bitte gehen Sie wie folgt vor:

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 in das Modulfenster ein.

VBA-Code: Entfernen von durch Interpunktion getrennten doppelten Wörtern 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. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie diese Formel =RemoveDupes2(A2,",") in eine leere Zelle neben Ihren Daten ein, siehe Screenshot:

4. Kopieren Sie dann die Formel in die benötigten Zellen, und alle doppelten Wörter wurden aus allen Zellen entfernt. Siehe Screenshot:

Hinweis: In der obigen Formel steht A2 für die Zelle, die Sie verwenden möchten, und das Komma (,) steht für das Interpunktionszeichen, das die Wörter in einer Zelle trennt. Sie können es bei Bedarf in beliebige andere Interpunktionszeichen ändern.