Filter uw Excel-lijsten met een macro zodanig dat meerdere vermeldingen slechts één keer voorkomen in een nieuwe doellijst en ruim zo uw gegevens op.
Veel lijsten bevatten dubbele vermeldingen. Soms is het belangrijk om deze items uit een lijst te filteren. Met een verkooplijst kunt u bijvoorbeeld een lijst maken waarin elke klant maar één keer voorkomt - dit kan bijvoorbeeld van belang zijn voor marktanalyses.
De tabel uit de volgende afbeelding toont een kleine Excel-lijst met getallen in kolom B.
U wilt van deze lijst een nieuwe lijst maken, waarin nummers niet meer twee keer voorkomen. Het getal 21, dat in de cellen B3, B5 en B14 in de oorspronkelijke lijst staat, zou in de nieuwe lijst maar één keer voorkomen.
Er zijn een aantal manieren waarop u dit kunt doen met Excel. Als u een macro wilt gebruiken, kunt u de volgende VBA-opdrachten gebruiken:
Sublijst zonder duplicaten ()
Dimbron als bereik
Dim doel als bereik
Bron instellen = bereik ("b1")
Stel doel = bereik ("d1")
Source.EntireColumn.AdvancedFilter Actie: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
Einde sub
Nadat de macro is gestart, filtert Excel de tabel en geeft de nieuwe tabel weer uit cel D1. De volgende afbeelding laat het resultaat zien:
U kunt zien dat elke waarde slechts één keer voorkomt in de resultatenlijst.
Gebruik de variabele SOURCE om de kolom van uw tabel op te geven waarin de gegevens zich bevinden waaruit u een nieuwe lijst wilt genereren zonder dubbele vermeldingen. De macro gebruikt altijd de hele kolom die hoort bij de referentie die u definieert met SOURCE. Gebruik de variabele om een celadres in de corresponderende kolom te definiëren.
Met de variabele TARGET bepaal je waar Excel je resultatenlijst schrijft. De nieuwe lijst begint op de positie die u met deze variabele opgeeft.
De macro werkt met het actieve werkblad voor zowel het brongebied als het doelgebied.
Om de macro in een tabel in te voegen, opent u de bijbehorende werkmap en drukt u in alle versies van Excel op de toetsencombinatie ALT F11 om de VBA-editor te starten. Roep de opdracht INSERT - MODULE aan en voeg de VBA-opdrachten in. Gebruik de toetsencombinatie ALT F8 om de macro vanuit Excel te starten.
