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

Note: 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 in de 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?

Beste Office-productiviteitstools

🤖	Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
	Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
	Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
	Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
	Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
	Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
	Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Lees verder... Gratis download...

---

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...