Filtruokite „Excel“ sąrašus naudodami makrokomandą taip, kad keli įrašai būtų rodomi tik vieną kartą naujame tikslų sąraše ir taip išvalytumėte duomenis.
Daugelyje sąrašų yra pasikartojančių įrašų. Kartais svarbu filtruoti šiuos įrašus iš sąrašo. Pavyzdžiui, galite naudoti pardavimo sąrašą, kad sukurtumėte sąrašą, kuriame kiekvienas klientas būtų rodomas tik vieną kartą - tai gali būti svarbu, pavyzdžiui, rinkos analizei.
Tolesnio paveikslo lentelėje parodytas nedidelis „Excel“ sąrašas su skaičiais B stulpelyje.
Iš šio sąrašo norite sukurti naują sąrašą, kuriame skaičiai nebebus rodomi du kartus. Skaičius 21, kurį galima rasti pradinio sąrašo langeliuose B3, B5 ir B14, naujame sąraše būtų rodomas tik vieną kartą.
Yra keletas būdų, kaip tai padaryti naudojant „Excel“. Jei norite naudoti makrokomandą, galite naudoti šias VBA komandas:
Antrinis sąrašas be dublikatų ()
Šviesos šaltinis kaip diapazonas
Pritemdyti taikinį kaip diapazoną
Nustatyti šaltinį = diapazonas ("b1")
Nustatyti tikslą = diapazonas ("d1")
Source.EntireColumn.AdvancedFilter Action: = xlFilterCopy, _
Kriterijų diapazonas: = Šaltinis. Visa stulpelis, „CopyToRange“: = Tikslas, Unikalus: = Tiesa
Pabaiga Sub
Paleidus makrokomandą, „Excel“ filtruoja lentelę ir rodo naują lentelę iš langelio D1. Toliau pateiktame paveikslėlyje parodytas rezultatas:
Matote, kad kiekviena vertė rezultatų sąraše rodoma tik vieną kartą.
Naudokite kintamąjį SOURCE, kad nurodytumėte lentelės stulpelį, kuriame yra duomenys, iš kurių norite sukurti naują sąrašą be pasikartojančių įrašų. Makrokomanda visada naudoja visą stulpelį, priklausantį nuorodai, kurią apibrėžiate naudodami SOURCE. Naudokite kintamąjį, kad apibrėžtumėte bet kurį langelio adresą atitinkamame stulpelyje.
Naudodami kintamąjį TARGET nustatote, kur „Excel“ rašo jūsų rezultatų sąrašą. Naujasis sąrašas prasideda nuo vietos, kurią nurodėte naudodami šį kintamąjį.
Makrokomanda veikia su aktyviu darbalapiu tiek šaltinio, tiek tikslinei sričiai.
Norėdami įterpti makrokomandą į lentelę, atidarykite atitinkamą darbaknygę ir paspauskite klavišų kombinaciją ALT F11 visose „Excel“ versijose, kad paleistumėte VBA redaktorių. Iškvieskite komandą INSERT - MODULE ir įveskite VBA komandas. Norėdami paleisti makrokomandą iš „Excel“, naudokite klavišų kombinaciją ALT F8.
