Hoe dynamisch een lijst met unieke waarden extraheren uit een kolombereik in Excel?

Voor een kolombereik waarvan de waarden regelmatig veranderen, moet u altijd alle unieke waarden uit het bereik halen, ongeacht hoe deze is gewijzigd. Hoe maak je een dynamische lijst met unieke waarden? In dit artikel wordt uitgelegd hoe u hiermee om kunt gaan.

Extraheer dynamisch een lijst met unieke waarden uit een kolombereik met formule
Extraheer dynamisch een lijst met unieke waarden uit een kolombereik met VBA-code

Extraheer dynamisch een lijst met unieke waarden uit een kolombereik met formule

Zoals onderstaand screenshot laat zien, moet u dynamisch een lijst met unieke waarden extraheren uit bereik B2: B9. Probeer de volgende matrixformule.

1. Selecteer een lege cel zoals D2, voer de onderstaande formule erin in en druk op Ctrl + Shift + Enter toetsen tegelijk. (B2: B9 zijn de kolomgegevens waarvan u de unieke waarden wilt extraheren, D1 is de cel hierboven waarin uw formule zich bevindt)

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

2. Blijf cel D2 selecteren en sleep vervolgens de vulhendel omlaag om alle unieke waarden uit het opgegeven bereik op te halen.

Nu worden alle unieke waarden in kolombereik B2: B9 geëxtraheerd. Wanneer waarden in dit bereik worden gewijzigd, wordt de lijst met unieke waarden onmiddellijk dynamisch gewijzigd.

Extraheer dynamisch een lijst met unieke waarden uit een kolombereik met VBA-code

U kunt ook een lijst met unieke waarden dynamisch extraheren uit een kolombereik met de volgende VBA-code.

1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module venster.

VBA-code: extraheer een lijst met unieke waarden uit een bereik

Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
  If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
     ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
  End If
Next
End Sub

Opmerking:: In de code is D2 de cel waarin u de lijst met unieke waarden zult vinden. U kunt het naar behoefte wijzigen.

3. Ga terug naar het werkblad en klik op Invoegen > Vormen > Rechthoek. Zie screenshot:

4. Teken een rechthoek in uw werkblad en typ vervolgens enkele woorden die u erop wilt weergeven. Klik er vervolgens met de rechtermuisknop op en selecteer Wijs macro toe vanuit het rechtsklikmenu. In de Wijs macro toe dialoogvenster, selecteert u het Unieke lijst makenL functie in het Macronaam vak en klik vervolgens op het OK knop. Zie screenshot:

5. Klik nu op de rechthoekknop, een Kutools for Excel dialoogvenster verschijnt, selecteer het bereik dat de unieke waarden bevat die u wilt extraheren en klik vervolgens op het OK knop.

Vanaf nu kunt u de bovenstaande stap 5 herhalen om de unieke waardenlijst automatisch bij te werken.

Gerelateerde artikelen:

• Hoe maak je een dynamische maandkalender in Excel?
• Hoe een afbeelding of afbeelding dynamisch in de cel invoegen op basis van de celwaarde in Excel?
• Hoe maak je een dynamische hyperlink naar een ander blad in Excel?

---

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...