Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe unieke waarden uit meerdere kolommen in Excel te extraheren?

Stel dat u meerdere kolommen met meerdere waarden heeft, sommige waarden worden herhaald in dezelfde kolom of in een andere kolom. En nu wilt u de waarden die in elke kolom aanwezig zijn, maar één keer vinden. Zijn er snelle trucs voor u om unieke waarden uit meerdere kolommen in Excel te extraheren?

Extractie van unieke waarden uit meerdere kolommen met matrixformule

Extraheren van unieke waarden uit meerdere kolommen met draaitabel

Unieke waarden extraheren uit meerdere kolommen met VBA-code

Unieke waarden uit één enkele kolom extraheren met Kutools voor Excel


Zoek en selecteer of markeer dubbele / unieke waarden in een kolom:

Doordat uw bureau Kutools for Excel's Selecteer Dupliceren en unieke cellen, kunt u snel de dubbele cellen of unieke waarden in één keer selecteren of schaduwen.

doc-extract-unieke-from-multiple-kolommen-18


pijl blauwe rechterbel Extractie van unieke waarden uit meerdere kolommen met matrixformule

Hier is een matrixformule die u ook kan helpen de unieke waarden uit meerdere kolommen te extraheren.

1. Ervan uitgaande dat uw waarden binnen bereik zijn A2: C9, voer deze formule in cel E2 in, =INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""zie screenshot:

doc-extract-unieke-from-multiple-kolommen-1

Notes: In de bovenstaande formule, A2: C9 geeft de waarden aan die u de unieke waarden wilt extraheren, u kunt deze naar uw behoefte wijzigen, E1: E1 is de eerste cel van de kolom waarin u het resultaat wilt plaatsen.

2. Druk vervolgens op Shift + Ctrl + Enter toetsen samen en sleep vervolgens de vulgreep om de unieke waarden te extraheren totdat lege cellen worden weergegeven.

doc-extract-unieke-from-multiple-kolommen-1


pijl blauwe rechterbel Extraheren van unieke waarden uit meerdere kolommen met draaitabel


Als u bekend bent met de draaitabel, kunt u eenvoudig de unieke waarden uit meerdere kolommen extraheren met de volgende stappen:

1. Voeg eerst een nieuwe lege kolom links van uw gegevens toe, in dit voorbeeld zal ik kolom A naast de oorspronkelijke gegevens invoegen.

doc-extract-unieke-from-multiple-kolommen-1

2. Klik op een cel in uw gegevens en druk op Alt + D toetsen en druk vervolgens op P toets onmiddellijk om de Draaitabel en draaigrafiek-wizard, kiezen Meerdere consolidatiebereiken in de wizard step1, zie screenshot:

doc-extract-unieke-from-multiple-kolommen-1

3. Dan klikken volgende knop, controleer Maak voor mij een veld met één pagina optie in wizard step2, zie screenshot:

doc-extract-unieke-from-multiple-kolommen-1

4. Blijf klikken volgende knop, klik doc-button-1 om het gegevensbereik te selecteren dat de linker nieuwe cellenkolom bevat en klik vervolgens op Toevoegen om het gegevensbereik toe te voegen aan de Alle reeksen keuzelijst, zie screenshot:

doc-extract-unieke-from-multiple-kolommen-1

5. Na het selecteren van het gegevensbereik, doorgaan met klikken volgende, kies in de wizardstap 3 waar u het draaitabelrapport wilt neerzetten zoals u wilt.

doc-extract-unieke-from-multiple-kolommen-1

6. Eindelijk, klik Eindpunt om de wizard te voltooien, en een draaitabel is gemaakt in het huidige werkblad, verwijder alle vinkjes uit het vakje Kies velden om toe te voegen aan rapport sectie, zie screenshot:

doc-extract-unieke-from-multiple-kolommen-1

7. Controleer vervolgens het veld Waarde of sleep de waarde naar de Rijlabels, nu krijgt u de unieke waarden uit de meerdere kolommen als volgt:

doc-extract-unieke-from-multiple-kolommen-1


pijl blauwe rechterbel Unieke waarden extraheren uit meerdere kolommen met VBA-code

Met de volgende VBA-code kunt u de unieke waarden ook extraheren uit meerdere kolommen.

1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in het modulevenster.

VBA: unieke waarden uit meerdere kolommen extraheren

Sub Uniquedata()
'Update 20140814
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3. Druk vervolgens op F5 om deze code uit te voeren en er verschijnt een promptvak om u eraan te herinneren selecteer het datumbereik dat u wilt gebruiken. Zie screenshot:

doc-extract-unieke-from-multiple-kolommen-1

4. En klik vervolgens op OK, verschijnt er een ander promptvak waarin u een plaats kunt kiezen om het resultaat te plaatsen, zie screenshot:

doc-extract-unieke-from-multiple-kolommen-1

5. Klik op OK om dit dialoogvenster te sluiten en alle unieke waarden zijn in één keer geëxtraheerd.

doc-extract-unieke-from-multiple-kolommen-1


pijl blauwe rechterbel Unieke waarden uit één enkele kolom extraheren met Kutools voor Excel

Soms moet u de unieke waarden uit een enkele kolom extraheren, de bovenstaande methoden zullen u niet helpen, hier kan ik een nuttige tool aanbevelenKutools for Excel, Met Selecteer Dupliceren en unieke cellen hulpprogramma, kunt u de unieke waarden snel extraheren.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, doe als volgt :( Download nu Kutools voor Excel )

1. Selecteer het gegevensbereik waarvoor u de unieke waarden wilt extraheren.

2. Dan klikken Kutools > kiezen > Selecteer Dupliceren en unieke cellenzie screenshot:

doc-extract-unieke-from-multiple-kolommen-1

3. In de Selecteer Dupliceren en unieke cellen dialoogvenster, kies Alleen unieke waarden or Alle unieke (inclusief 1 st duplicaten) als je nodig hebt, klik dan OK knop, en je krijgt de volgende resultaten:

Selecteer alleen unieke waarden Selecteer alle unieke waarden met eerste duplicaten
doc-extract-unieke-from-multiple-kolommen-1  2 doc-extract-unieke-from-multiple-kolommen-1  2 doc-extract-unieke-from-multiple-kolommen-1

4. Na het selecteren van de unieke waarden hoeft u alleen maar vast te houden CTRL + C om de geselecteerde waarden te kopiëren en plak ze vervolgens in cellen waar u het resultaat wilt plaatsen. Alle unieke waarden zijn als volgt geëxtraheerd:

doc-extract-unieke-from-multiple-kolommen-1

Om meer te weten over deze functie Selecteer Dupliceren en unieke cellen.

Download nu Kutools voor Excel


Gerelateerde artikelen:

Hoe vind ik unieke waarden tussen twee kolommen in Excel?

Hoe unieke records uit het geselecteerde bereik filteren of selecteren in Excel?


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fernando · 1 years ago
    Muchas gracias por la macro!!! me fue muy util
  • To post as a guest, your comment is unpublished.
    Hannah Li · 1 years ago
    This array formula is CORRECT. Data in columns A to C, first result formula in cell D2... This one is different from other array formula that the later is copy formula down and Ctrl+Shift+Enter all formula. However, this array formula should be done the Ctrl+Shift+Enter in first cell and copy down.
  • To post as a guest, your comment is unpublished.
    mingji · 1 years ago
    does anyone know, for the output, how to make it into several lines but not into one line ? (currently one line result is achieved by worksheetfunction.transpose, but what i want to achieve (as result) is that when select for 3 columns, the returned result are also 3 columns, instead one
  • To post as a guest, your comment is unpublished.
    stephan · 1 years ago
    Can you please submit the correct formula... the VBA function works just fine.
    Just for my project, I rather use the correct formula.


    Thanks
  • To post as a guest, your comment is unpublished.
    Mohamed Ali AbdElGawad · 2 years ago
    I love

    Extract Unique Values From Multiple Columns With Pivot Table
  • To post as a guest, your comment is unpublished.
    reza · 2 years ago
    hi
    i have three unequal columns and want to extract unique cells of first column. how can i do it??

    thanks in advance
  • To post as a guest, your comment is unpublished.
    reza · 2 years ago
    hi
    i want to extract unique cells from first column when i compare it with another columns (i have three unequal columns), how can i do it?
  • To post as a guest, your comment is unpublished.
    VRRNOE · 2 years ago
    =INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""
    It doesn't work
  • To post as a guest, your comment is unpublished.
    Stewart · 2 years ago
    Hey! Does anyone know why this formula seems to lead to an error after row 87? Like, it works perfectly and then at a certain point it just returns me errors for every row.. which is the worst! Because I'm so close to exactly what I need here...
  • To post as a guest, your comment is unpublished.
    Claire · 3 years ago
    I am using your VBA code, but do not want the box to pop up. In stead I want to define exactly what cell range to use every time and exactly what box to put the output in. The input range and output would be on two different sheets. how do I update the VBA to do so? Thank you!!
  • To post as a guest, your comment is unpublished.
    Anders · 4 years ago
    Thank you!!! I have been spending hours trying to do this and to figure out what happened to the Pivot Wizard (other article).
  • To post as a guest, your comment is unpublished.
    Visitor · 4 years ago
    Is this formula complete?

    =INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&"",