Wie vergleicht man kommagetrennte Werte in zwei Zellen und gibt dabei doppelte oder eindeutige Werte in Excel zurück?
Wie im folgenden Screenshot gezeigt, gibt es zwei Spalten – Spalte1 und Spalte2. Jede Zelle in der Spalte enthält kommagetrennte Zahlen. Um die kommagetrennten Zahlen in Spalte1 mit dem Zellinhalt in derselben Zeile von Spalte2 zu vergleichen und alle doppelten oder eindeutigen Werte zurückzugeben, was können Sie tun?
Dieses Tutorial stellt zwei Methoden zur Verfügung, um diese Aufgabe zu erledigen.
Vergleichen Sie kommagetrennte Werte in zwei Zellen und geben Sie doppelte oder eindeutige Werte mithilfe von Formeln zurück
Dieser Abschnitt stellt zwei Formeln bereit, um die kommagetrennten Werte in zwei Zellen zu vergleichen und die doppelten bzw. eindeutigen Werte zwischen ihnen zurückzugeben.
Hinweis: Die folgenden Formeln funktionieren ausschließlich in Excel für Microsoft 365. Wenn Sie eine andere Excel-Version verwenden, probieren Sie die unten stehende VBA-Methode aus.
Verwenden Sie als Beispiel die beiden oben genannten Spalten, um die kommagetrennten Zahlen in Spalte 1 mit den kommagetrennten Zahlen in derselben Zeile von Spalte 2 zu vergleichen und doppelte oder eindeutige Werte zurückzugeben. Gehen Sie dazu wie folgt vor:
Geben Sie Doppelte Werte zurück
1. Wählen Sie eine Zelle aus, um die doppelten Zahlen zwischen den beiden angegebenen Zellen mit kommagetrennten Werten anzuzeigen. In diesem Fall wähle ich Zelle D2 aus, gebe dann die folgende Formel ein und drücke die Eingabetaste. Anschließend markieren Sie die Formelzelle und ziehen den AutoAusfüll-Griff nach unten, um die doppelten Zahlen zwischen den Zellen in den anderen Zeilen zu erhalten.
=LET(x, TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),y,UNIQUE(x),z,UNIQUE(x,,1), TEXTJOIN(", ",TRUE,IF(ISERROR(MATCH(y,z,0)),y, „")))
Geben Sie eindeutige Werte zurück
Um die eindeutigen Zahlen zwischen den beiden angegebenen Zellen mit kommagetrennten Werten in derselben Zeile zu erhalten, hilft Ihnen die folgende Formel.
1. Wählen Sie eine Zelle aus, in der die eindeutigen Werte ausgegeben werden sollen – in diesem Fall Zelle E2 –, geben Sie dann die folgende Formel ein und drücken Sie die Eingabetaste. Anschließend markieren Sie die Formelzelle und ziehen den AutoAusfüll-Griff nach unten, um die eindeutigen Zahlen zwischen den Zellen in den anderen Zeilen zu erhalten.
=TEXTJOIN(", ",TRUE,UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),,1))
Hinweise:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Vergleichen Sie zwei Spalten mit kommagetrennten Werten und geben Sie doppelte oder eindeutige Werte mithilfe von VBA zurück
Die in diesem Abschnitt bereitgestellte benutzerdefinierte Funktion ermöglicht es Ihnen, die kommagetrennten Werte aus zwei angegebenen Zellen zu vergleichen und entweder die doppelten oder die eindeutigen Werte zwischen ihnen zurückzugeben. Gehen Sie dazu wie folgt vor:
Verwenden Sie dasselbe Beispiel wie oben, um die kommagetrennten Zahlen in Spalte1 mit den kommagetrennten Zahlen in derselben Zeile von Spalte2 zu vergleichen und doppelte oder eindeutige Werte zurückzugeben. Probieren Sie dazu die benutzerdefinierte Funktion in diesem Abschnitt aus.
1. Drücken Sie in der geöffneten Arbeitsmappe die folgende Tastenkombination:Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applicationsauf Einfügen>Modul, und kopieren Sie den folgenden VBA-Code in das Fenster Modul (Code).
VBA-Code: Vergleichen Sie kommagetrennte Werte in zwei Zellen und geben Sie doppelte/eindeutige Werte zurück
Private Function COMPARE(Rng1, Rng2 As Range, Op As Boolean)
'Updated by Extendoffice 20221019
Dim R1Arr As Variant
Dim R2Arr As Variant
Dim Ans1 As String
Dim Ans2 As String
Dim Separator As String
Dim d1 As New Dictionary
Dim d2 As New Dictionary
Dim d3 As New Dictionary
Application.Volatile
Separator = ", "
R1Arr = Split(Rng1.Value, Separator)
R2Arr = Split(Rng2.Value, Separator)
Ans1 = ""
Ans2 = ""
For Each ch In R2Arr
If Not d2.Exists(ch) Then
d2.Add ch, "1"
End If
Next
If Op Then
For Each ch In R1Arr
If d2.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans1 = Ans1 & ch & Separator
End If
End If
Next
If Ans1 <> "" Then
Ans1 = Mid(Ans1, 1, Len(Ans1) - Len(Separator))
End If
COMPARE = Ans1
Else
For Each ch In R1Arr
If Not d1.Exists(ch) Then
d1.Add ch, "1"
End If
Next
For Each ch In R1Arr
If Not d2.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans2 = Ans2 & ch & Separator
End If
End If
Next
For Each ch In R2Arr
If Not d1.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans2 = Ans2 & ch & Separator
End If
End If
Next
If Ans2 <> "" Then
Ans2 = Mid(Ans2, 1, Len(Ans2) - Len(Separator))
End If
COMPARE = Ans2
End If
End Function3. Nachdem Sie den Code in das Fenster eingefügt haben,Modul (Code) eingefügt haben, klicken Sie auf Extras > Verweise, um das Fenster Verweise – VBAProject zu öffnen. Aktivieren Sie dann das Kontrollkästchen Microsoft Scripting Runtime und klicken Sie anschließend auf die Schaltfläche OK.
4. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
5. Jetzt müssen Sie zwei Funktionen separat anwenden, um doppelte und eindeutige Werte aus zwei Zellen mit kommagetrennten Werten zu erhalten.
Geben Sie doppelte Werte zurück
Wählen Sie eine Zelle aus, um die doppelten Zahlen auszugeben. In diesem Beispiel wähle ich Zelle D2 aus, gebe dann die folgende Formel ein und drücke die Eingabetaste, um die doppelten Zahlen zwischen Zelle A2 und B2 zu erhalten.
Wählen Sie die Formelzelle aus und ziehen Sie den AutoAusfüll-Griff nach unten, um die doppelten Werte in den entsprechenden Zellen der anderen Zeilen zu übernehmen.
=COMPARE(A2,B2,TRUE)
Geben Sie eindeutige Werte zurück
Wählen Sie eine Zelle aus, um die eindeutigen Werte auszugeben. In diesem Beispiel wähle ich Zelle E2 aus, gebe dann die folgende Formel ein und drücke die Eingabetaste, um die eindeutigen Zahlen zwischen den Zellen A2 und B2 zu erhalten.
Wählen Sie die Formelzelle aus und ziehen Sie deren AutoAusfüll-Griff nach unten, um in den anderen Zeilen jeweils eindeutige Zahlen zu erhalten.
=COMPARE(A2,B2,FALSE)
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins