Hoe maak je dynamisch een lijst van unieke waarden uit een kolombereik in Excel?

Voor een kolombereik waarvan de waarden regelmatig veranderen, en waarbij je altijd alle unieke waarden uit het bereik moet halen, ongeacht hoe het verandert. Hoe maak je een dynamische lijst van unieke waarden? Dit artikel laat zien hoe je dit kunt doen.

Dynamisch een lijst van unieke waarden extraheren uit een kolombereik met een formule
Dynamisch een lijst van unieke waarden extraheren uit een kolombereik met VBA-code

Dynamisch een lijst van unieke waarden extraheren uit een kolombereik met een formule

Zoals in onderstaande schermafbeelding te zien is, moet je dynamisch een lijst van unieke waarden extraheren uit het bereik B2:B9. Probeer de volgende matrixformule.

1. Selecteer een lege cel, zoals D2, voer de onderstaande formule erin in en druk tegelijkertijd op de toetsen Ctrl + Shift + Enter. (B2:B9 is de kolomdata waaruit u de unieke waarden wilt extraheren, D1 is de cel erboven waar uw formule zich bevindt)

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

2. Houd cel D2 geselecteerd en sleep de vulgreep omlaag om alle unieke waarden uit het gespecificeerde bereik te krijgen.

Nu zijn alle unieke waarden in het kolombereik B2:B9 geëxtraheerd. Wanneer de waarden in dit bereik veranderen, wordt de lijst met unieke waarden direct dynamisch bijgewerkt.

Dynamisch een lijst van unieke waarden extraheren uit een kolombereik met VBA-code

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

1. Druk tegelijkertijd op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Extraheer een lijst van 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 waar je de lijst met unieke waarden wilt plaatsen. Je kunt dit naar behoefte wijzigen.

3. Ga terug naar het werkblad, klik op Invoegen > Vormen > Rechthoek. Zie schermafbeelding:

4. Teken een rechthoek in je werkblad, voer vervolgens de woorden in die je erop wilt weergeven. Klik er met de rechtermuisknop op en selecteer Macro Toewijzen in het rechtermuisknopmenu. Selecteer in het dialoogvenster Macro Toewijzen de optie CreateUniqueList in het vak Macro naam, en klik vervolgens op de knop OK. Zie schermafbeelding:

5. Klik nu op de rechthoekknop, er verschijnt een dialoogvenster van Kutools voor Excel. Selecteer het bereik dat de unieke waarden bevat die je wilt extraheren, en klik vervolgens op de knop OK.

Vanaf nu kun je stap 5 herhalen om de lijst met unieke waarden automatisch bij te werken.

Gerelateerde artikelen:

• Hoe maak je een dynamische maandkalender in Excel?
• Hoe voeg je dynamisch een afbeelding of foto in een cel in op basis van een celwaarde in Excel?
• Hoe maak je een dynamische hyperlink naar een ander werkblad in Excel?