Hoe haalt u dynamisch een lijst met unieke waarden uit een kolombereik in Excel?
Voor een kolombereik met regelmatig veranderende waarden, waaruit u altijd alle unieke waarden moet ophalen – ongeacht hoe die veranderen – hoe creëert u dan een dynamische lijst met unieke waarden? Dit artikel laat u precies zien hoe u dat aanpakt.
Dynamisch een lijst met unieke waarden uit een kolombereik halen met een formule
Dynamisch een lijst met unieke waarden uit een kolombereik halen met VBA-code
Dynamisch een lijst met unieke waarden uit een kolombereik halen met een formule
Zoals in de onderstaande schermafbeelding te zien is, kunt u dynamisch een lijst met unieke waarden ophalen uit het bereik B2:B9. Gebruik hiervoor de volgende matrixformule.
1. Selecteer een lege cel, bijvoorbeeld D2, voer de onderstaande formule in en druk tegelijkertijd op Ctrl+Shift+Enter (B2:B9 is het kolombereik met de gegevens waaruit u unieke waarden wilt halen; D1 is de cel direct boven de cel met uw formule).
=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 naar beneden om alle unieke waarden uit het beperkte bereik op te halen.
Alle unieke waarden uit het kolombereik B2:B9 zijn nu verzameld. Zodra de waarden in dit bereik wijzigen, wordt de lijst met unieke waarden direct dynamisch bijgewerkt.
Selecteer en markeer eenvoudig alle unieke waarden in een bereik in Excel:
Met de Selecteer duplicaat/unieke cellen-functie van Kutools voor Excel selecteert en markeert u eenvoudig alle unieke waarden (inclusief de eerste exemplaren van duplicaten), alleen de waarden die één keer voorkomen of juist dubbele waarden — precies zoals u dat nodig hebt, zoals op de schermafbeelding hieronder wordt weergegeven.
Download Kutools voor Excel nu! (30 dagen gratis proefversie)
Dynamisch een lijst met unieke waarden uit een kolombereik halen met VBA-code
U kunt ook dynamisch een lijst met unieke waarden ophalen uit een kolombereik met de volgende VBA-code.
1. Druk tegelijkertijd op 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: Een lijst met unieke waarden uit een bereik halen
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 SubOpmerking: In de code is D2 de cel waarin u de lijst met unieke waarden wilt plaatsen. U kunt dit naar wens aanpassen.
3. Ga terug naar het werkblad en klik op Invoegen > Vormen > Rechthoek. Zie de schermafbeelding:
4. Teken een rechthoek in uw werkblad en voer daarna de tekst in die u erop wilt weergeven. Klik er met de rechtermuisknop op en kies Macro toewijzen in het contextmenu. Selecteer in het dialoogvenster Macro toewijzen de macro CreateUniqueList in het vak Macronaam en klik op de knop OK. Zie schermafbeelding:
5. Klik nu op de rechthoekknop. Er verschijnt een Kutools voor Excel-dialoogvenster. Selecteer het bereik met de unieke waarden die u wilt ophalen en klik op de knop OK.
Vanaf nu kunt u bovenstaande stap 5 herhalen om de lijst met unieke waarden automatisch bij te werken.
Gerelateerde artikelen:
- Hoe maakt u een dynamische maandkalender in Excel?
- Hoe kunt u dynamisch een afbeelding in een cel invoegen of weergeven op basis van de celwaarde in Excel?
- Hoe maakt u een dynamische hyperlink naar een ander werkblad in Excel?
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