Hoe vergelijkt u door komma's gescheiden waarden in twee cellen en haalt u de dubbele of unieke waarden eruit in Excel?
Zoals in de onderstaande schermafbeelding te zien is, bevatten Kolom1 en Kolom2 per rij door komma’s gescheiden getallen. Hoe vergelijkt u de waarden in Kolom1 met die in Kolom2 op dezelfde rij om alle dubbele of unieke waarden te identificeren?
Deze handleiding biedt u twee methoden om deze taak eenvoudig en efficiënt uit te voeren.
Vergelijk door komma's gescheiden waarden in twee cellen en geef dubbele of unieke waarden terug met formules
In dit gedeelte worden twee formules aangeboden om door komma's gescheiden waarden in twee cellen te vergelijken en de dubbele of unieke waarden tussen beide te retourneren.
Opmerking: De volgende formules werken alleen in Excel voor Microsoft 365. Gebruikt u een andere versie van Excel? Probeer dan de onderstaande VBA-methode.
Neem bovenstaande twee kolommen als voorbeeld. Volg deze stappen om de door komma’s gescheiden getallen in Kolom1 te vergelijken met de overeenkomstige, door komma’s gescheiden getallen in dezelfde rij van Kolom2, en dubbele of unieke waarden terug te geven.
Geef Dubbele waarden terug
1. Selecteer een cel om de dubbele getallen tussen de twee opgegeven cellen met door komma's gescheiden waarden weer te geven. In dit geval kies ik cel D2. Voer vervolgens de onderstaande formule in en druk op Enter. Selecteer de formulecel en sleep de Automatisch aanvullen-greep naar beneden om de dubbele getallen tussen de cellen in de overige rijen op te halen.
=LET(x, TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),y,UNIQUE(x),z,UNIQUE(x,,1), TEXTJOIN(", ",TRUE,IF(ISERROR(MATCH(y,z,0)),y, „")))
Geef unieke waarden terug
Om de unieke getallen tussen de twee opgegeven cellen met komma-gescheiden waarden in dezelfde rij te retourneren, helpt de volgende formule u.
1. Selecteer een cel om de unieke waarden weer te geven – in dit voorbeeld kies ik cel E2. Voer daarna de onderstaande formule in en druk op Enter-toets. Selecteer de formulecel en sleep de Automatisch aanvullen-greep naar beneden om de unieke getallen uit de overige rijen op te halen.
=TEXTJOIN(", ",TRUE,UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),,1))
Opmerkingen:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Vergelijk twee kolommen met door komma's gescheiden waarden en geef dubbele of unieke waarden terug met VBA
De door de gebruiker gedefinieerde functie in dit gedeelte vergelijkt door komma’s gescheiden waarden in twee opgegeven cellen en geeft de dubbele of unieke waarden daartussen terug. Volg deze stappen:
Neem hetzelfde voorbeeld als hierboven. Om de door komma's gescheiden getallen in Kolom1 te vergelijken met de door komma's gescheiden getallen in dezelfde rij van Kolom2 en dubbele of unieke waarden terug te geven, probeert u de door de gebruiker gedefinieerde functie in dit gedeelte.
1. Druk in de geopende werkmap op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applicationsop Invoegen>Module, en kopieer de volgende VBA-code naar het venster Module (Code).
VBA-code: Vergelijk door komma's gescheiden waarden in twee cellen en geef dubbele/unieke waarden terug
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. Nadat u de code in het venster hebt geplakt Module (Code), klikt u op Extra > Referenties om het venster Referenties – VBAProject te openen. Vink het vakje Microsoft Scripting Runtime aan en klik vervolgens op de knop OK.
4. Druk op de Alt+Q-toetsen om het venster Microsoft Visual Basic for Applications te sluiten.
5. U moet nu twee afzonderlijke functies toepassen om dubbele en unieke waarden uit twee cellen met komma-gescheiden waarden op te halen.
Geef dubbele waarden terug
Selecteer een cel om de dubbele getallen weer te geven. In dit voorbeeld selecteer ik cel D2. Voer vervolgens de onderstaande formule in en druk op de Enter-toets om de dubbele getallen tussen cel A2 en B2 op te halen.
Selecteer de formulecel en sleep de greep voor Automatisch aanvullen naar beneden om de dubbele waarden in de overige rijen te kopiëren.
=COMPARE(A2,B2,TRUE)
Geef unieke waarden terug
Selecteer een cel om de unieke waarden weer te geven – in dit voorbeeld kies ik cel E2. Voer daarna de onderstaande formule in en druk op Enter-toets om de unieke getallen tussen cel A2 en B2 op te halen.
Selecteer de formulecel en sleep de greep voor Automatisch aanvullen naar beneden om de unieke waarden uit de overige rijen op te halen.
=COMPARE(A2,B2,FALSE)
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins