Angenommen, in jeder Zelle befinden sich doppelte Zeichen oder Wörter, und Sie möchten die doppelten Zeichen entfernen und nur eindeutige Zeichen oder Wörter belassen. Wie können Sie dieses Problem in Excel lösen?
Entfernen Sie doppelte Zeichen der Textzeichenfolge mit der benutzerdefinierten Funktion
Entfernen Sie doppelte Zeichen der Textzeichenfolge mit der benutzerdefinierten FunktionWenn Sie jetzt eine Liste mit Textzeichenfolgen haben, müssen Sie die doppelten Zeichen wie im folgenden Screenshot gezeigt entfernen. Hier kann ich über einen VBA-Code sprechen, um damit umzugehen.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Entfernen Sie doppelte Zeichen der 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. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie diese Formel ein = removeupes1 (A2) (A2 ist die Datenzelle, aus der Sie Duplikate entfernen möchten) in eine leere Zelle neben Ihren Daten, siehe Screenshot:
4. Ziehen Sie dann den Füllpunkt auf die Bereichszellen, auf die Sie diese Formel anwenden möchten. Alle doppelten Zeichen wurden sofort aus jeder Zelle entfernt.
Entfernen Sie doppelte Wörter, die durch Interpunktion getrennt sind, mit der benutzerdefinierten FunktionWenn einige Wörter in einer Zelle durch bestimmte Satzzeichen getrennt sind, können Sie die doppelten Wörter auch nach Belieben entfernen. Bitte machen Sie die folgenden Schritte:
1. Halten Sie die ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Entfernen Sie doppelte Wörter, die durch Interpunktion einer Zelle getrennt sind
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 ein = RemoveDupes2 (A2, ",") in eine leere Zelle neben Ihren Daten, siehe Screenshot:
4. Kopieren Sie dann die Formel in die gewünschten Zellen, und alle doppelten Wörter wurden aus allen Zellen entfernt. Siehe Screenshot:
Hinweis: In der obigen Formel A2 Gibt die Zelle an, 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 nach Belieben in andere Interpunktionen ändern.
