Filtrera dina Excel -listor med ett makro på ett sådant sätt att flera poster bara visas en gång i en ny mållista och på så sätt rensar dina data.
Många listor innehåller dubbletter. Ibland är det viktigt att filtrera bort dessa poster från en lista. Till exempel kan du använda en säljlista för att skapa en lista där varje kund bara visas en gång - det kan till exempel vara viktigt för marknadsanalyser.
Tabellen från följande bild visar en liten Excel -lista med siffror i kolumn B.
Du vill skapa en ny lista från den här listan, där siffror inte längre visas två gånger. Siffran 21, som finns i cellerna B3, B5 och B14 i den ursprungliga listan, skulle bara visas en gång i den nya listan.
Det finns ett antal sätt att göra detta med Excel. Om du vill använda ett makro kan du använda följande VBA -kommandon:
Underlista utan dubbletter ()
Dim källa som intervall
Dimma målet som intervall
Ange källa = intervall ("b1")
Ange mål = intervall ("d1")
Source.EntireColumn.AdvancedFilter Action: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
Avsluta Sub
Efter att ha startat makrot filtrerar Excel tabellen och visar den nya tabellen från cell D1. Följande bild visar resultatet:
Du kan se att varje värde bara visas en gång i resultatlistan.
Använd SOURCE -variabeln för att ange kolumnen i tabellen där data finns från vilken du vill skapa en ny lista utan dubbletter. Makrot använder alltid hela kolumnen som tillhör referensen som du definierar med SOURCE. Använd variabeln för att definiera vilken celladress som helst i motsvarande kolumn.
Med variabeln TARGET bestämmer du var Excel skriver din resultatlista. Den nya listan börjar vid den position du anger med denna variabel.
Makrot fungerar med det aktiva kalkylbladet för både källområdet och målområdet.
För att infoga makrot i en tabell, öppna motsvarande arbetsbok och tryck på tangentkombinationen ALT F11 i alla versioner av Excel för att starta VBA -redigeraren. Ring kommandot INSERT - MODULE och sätt in VBA -kommandona. För att starta makrot från Excel, använd tangentkombinationen ALT F8.
