Filtrējiet savus Excel sarakstus ar makro tā, lai vairāki ieraksti tiktu parādīti tikai vienu reizi jaunā mērķu sarakstā un tādējādi attīrītu jūsu datus.
Daudzos sarakstos ir ierakstu dublikāti. Dažreiz ir svarīgi filtrēt šos ierakstus no saraksta. Piemēram, varat izmantot pārdošanas sarakstu, lai izveidotu sarakstu, kurā katrs klients parādās tikai vienu reizi - tas var būt svarīgi, piemēram, tirgus analīzei.
Tabulā no šī attēla redzams neliels Excel saraksts ar skaitļiem B slejā.
No šī saraksta vēlaties izveidot jaunu sarakstu, kurā skaitļi vairs neparādās divas reizes. Skaitlis 21, kas atrodams sākotnējā saraksta šūnās B3, B5 un B14, jaunajā sarakstā parādītos tikai vienu reizi.
Ir vairāki veidi, kā to izdarīt, izmantojot programmu Excel. Ja vēlaties izmantot makro, varat izmantot šādas VBA komandas:
Apakšsaraksts bez dublikātiem ()
Dim avots kā diapazons
Aptumšojiet mērķi kā diapazonu
Iestatīt avotu = diapazons ("b1")
Iestatīt mērķi = diapazons ("d1")
Source.EntireColumn.AdvancedFilter Action: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Mērķis, Unikāls: = True
Beigt apakš
Pēc makro palaišanas programma Excel filtrē tabulu un parāda jauno tabulu no šūnas D1. Sekojošais attēls parāda rezultātu:
Jūs varat redzēt, ka katra vērtība rezultātu sarakstā parādās tikai vienu reizi.
Izmantojiet mainīgo SOURCE, lai norādītu tabulas kolonnu, kurā atrodas dati, no kuriem vēlaties izveidot jaunu sarakstu bez dublikātiem. Makro vienmēr izmanto visu kolonnu, kas pieder atsaucei, kuru definējat ar SOURCE. Izmantojiet mainīgo, lai attiecīgajā slejā definētu jebkuru šūnas adresi.
Ar mainīgo TARGET jūs nosakāt, kur Excel raksta jūsu rezultātu sarakstu. Jaunais saraksts sākas pozīcijā, kuru norādījāt ar šo mainīgo.
Makro darbojas ar aktīvo darblapu gan avota apgabalā, gan mērķa apgabalā.
Lai makro ievietotu tabulā, atveriet atbilstošo darbgrāmatu un nospiediet taustiņu kombināciju ALT F11 visās Excel versijās, lai palaistu VBA redaktoru. Izsauciet komandu INSERT - MODULE un ievietojiet VBA komandas. Lai sāktu makro no Excel, izmantojiet taustiņu kombināciju ALT F8.
