Excel: dubleerivate andmekirjete filtreerimine makro abil

Lang L: none (table-of-contents)

Filtreerige oma Exceli loendid makroga nii, et mitu kirjet kuvatakse uues sihtmärkide loendis ainult üks kord ja seega puhastage oma andmed.

Paljud loendid sisaldavad topeltkirjeid. Mõnikord on oluline need kirjed loendist välja filtreerida. Näiteks saate müüginimekirja abil luua loendi, milles iga klient esineb ainult üks kord - see võib olla oluline näiteks turuanalüüside jaoks.

Järgmisel joonisel olev tabel näitab väikest Exceli loendit, mille veerus B on numbrid.

Soovite sellest loendist luua uue loendi, milles numbreid enam kaks korda ei kuvata. Number 21, mis asub algse loendi lahtrites B3, B5 ja B14, ilmuks uues loendis ainult üks kord.

Exceli abil saate seda teha mitmel viisil. Kui soovite kasutada makro, saate kasutada järgmisi VBA käske:

Alamloend ilma duplikaatideta ()
Tumeda allika vahemik
Hämarda sihtmärk vahemikuna
Määra allikas = vahemik ("b1")
Määra sihtmärk = vahemik ("d1")
Source.EntireColumn.AdvancedFilter Action: = xlFilterCopy, _
CriteriaRange: = Allikas. Kogu veerg, CopyToRange: = Sihtmärk, Unikaalne: = Tõsi
End Sub

Pärast makro käivitamist filtreerib Excel tabeli ja kuvab lahtri D1 uue tabeli. Järgmine joonis näitab tulemust:

Näete, et iga väärtus kuvatakse tulemuste loendis ainult üks kord.

Muutuja SOURCE abil saate määrata oma tabeli veeru, milles asuvad andmed, millest soovite luua uue loendi ilma topeltkirjeteta. Makro kasutab alati kogu veergu, mis kuulub viitele, mille määrate allikaga SOURCE. Muutuja abil saate vastavas veerus määrata mis tahes lahtri aadressi.

Muutuja TARGET abil saate määrata, kuhu Excel teie tulemuste loendi kirjutab. Uus loend algab positsioonist, mille määrate selle muutujaga.

Makro töötab nii lähte- kui ka sihtpiirkonna aktiivse töölehega.

Makro tabelisse sisestamiseks avage vastav töövihik ja vajutage VBA redaktori käivitamiseks kõigi Exceli versioonide klahvikombinatsiooni ALT F11. Helistage käsule INSERT - MODULE ja sisestage VBA käsud. Makro käivitamiseks Excelist kasutage klahvikombinatsiooni ALT F8.

Te aitate arengu ala, jagades leht oma sõpradega

wave wave wave wave wave