Filtrer dine Excel -lister med en makro på en sådan måde, at flere poster kun vises én gang i en ny målliste og dermed rydder op i dine data.
Mange lister indeholder dublerede poster. Nogle gange er det vigtigt at filtrere disse poster ud af en liste. For eksempel kan du bruge en salgsliste til at oprette en liste, hvor hver kunde kun vises én gang - det kan f.eks. Være vigtigt for markedsanalyser.
Tabellen fra følgende figur viser en lille Excel -liste med tal i kolonne B.
Du vil oprette en ny liste fra denne liste, hvor tal ikke længere vises to gange. Tallet 21, som findes i cellerne B3, B5 og B14 i den originale liste, ville kun blive vist én gang i den nye liste.
Der er en række måder, du kan gøre dette på med Excel. Hvis du vil bruge en makro, kan du bruge følgende VBA -kommandoer:
Underliste uden dubletter ()
Dim Source As Range
Dim mål som område
Indstil kilde = område ("b1")
Indstil mål = område ("d1")
Source.EntireColumn.AdvancedFilter Action: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
Afslut Sub
Efter start af makroen filtrerer Excel tabellen og viser den nye tabel fra celle D1. Følgende figur viser resultatet:
Du kan se, at hver værdi kun vises én gang i resultatlisten.
Brug variablen KILDE til at angive kolonnen i din tabel, hvor dataene er placeret, hvorfra du vil generere en ny liste uden dublerede poster. Makroen bruger altid hele kolonnen, der tilhører den reference, du definerer med SOURCE. Brug variablen til at definere enhver celleadresse i den tilsvarende kolonne.
Med variablen TARGET bestemmer du, hvor Excel skriver din resultatliste. Den nye liste starter på den position, du angiver med denne variabel.
Makroen fungerer med det aktive regneark for både kildeområdet og målområdet.
Hvis du vil indsætte makroen i en tabel, skal du åbne den tilhørende projektmappe og trykke på tastekombinationen ALT F11 i alle versioner af Excel for at starte VBA -editoren. Ring til kommandoen INSERT - MODULE, og indsæt VBA -kommandoerne. For at starte makroen fra Excel skal du bruge tastekombinationen ALT F8.
