Suodata Excel -luettelosi makrolla siten, että useat merkinnät näkyvät vain kerran uudessa kohdeluettelossa ja puhdistavat näin tiedot.
Monet luettelot sisältävät päällekkäisiä merkintöjä. Joskus on tärkeää suodattaa nämä merkinnät pois luettelosta. Voit esimerkiksi luoda myyntiluettelon avulla luettelon, jossa jokainen asiakas esiintyy vain kerran - tämä voi olla tärkeää esimerkiksi markkina -analyyseissä.
Seuraavan kuvan taulukossa on pieni Excel -luettelo, jossa on numeroita sarakkeessa B.
Haluat luoda tästä luettelosta uuden luettelon, jossa numerot eivät enää näy kahdesti. Numero 21, joka löytyy soluista B3, B5 ja B14 alkuperäisessä luettelossa, esiintyy vain kerran uudessa luettelossa.
Voit tehdä tämän Excelillä useilla tavoilla. Jos haluat käyttää makroa, voit käyttää seuraavia VBA -komentoja:
Alaluettelo ilman kaksoiskappaleita ()
Himmennetty lähde alueena
Himmennä kohde alueena
Aseta lähde = alue ("b1")
Aseta tavoite = alue ("d1")
Source.EntireColumn.AdvancedFilter Action: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Kohde, Ainutlaatuinen: = Tosi
End Sub
Makron käynnistämisen jälkeen Excel suodattaa taulukon ja näyttää uuden taulukon solusta D1. Seuraavassa kuvassa näkyy tulos:
Voit nähdä, että jokainen arvo näkyy vain kerran tulosluettelossa.
Määritä SOURCE -muuttujan avulla taulukon sarake, jossa tiedot sijaitsevat ja josta haluat luoda uuden luettelon ilman päällekkäisiä merkintöjä. Makro käyttää aina koko saraketta, joka kuuluu lähteeseen, jonka määrität SOURCE: lla. Määritä muuttujan avulla mikä tahansa solun osoite vastaavassa sarakkeessa.
Muuttujan TARGET avulla voit määrittää, mihin Excel kirjoittaa tulosluettelosi. Uusi luettelo alkaa tällä muuttujalla määrittämästäsi paikasta.
Makro toimii sekä lähde- että kohdealueen aktiivisen laskentataulukon kanssa.
Jos haluat lisätä makron taulukkoon, avaa vastaava työkirja ja käynnistä VBA -editori painamalla näppäinyhdistelmää ALT F11 kaikissa Excel -versioissa. Kutsu INSERT - MODULE -komento ja lisää VBA -komennot. Käynnistä makro Excelistä käyttämällä näppäinyhdistelmää ALT F8.
