5 cool makronaredbi Microsoft Excela za razvrstavanje podataka

Excel makronaredbe možda nisu tako sveobuhvatne kao drugi alati za automatizaciju, ali valjanost i učinkovitost Excel VBA ne mogu se potkopati. Ako radite u Excelu i drugim alatima Microsoft Officea kao što su Word i Access, ne možete pogriješiti s VBA i njegovim mogućnostima.

MS Excel je moćan alat koji svojim korisnicima nudi mnoštvo opcija. Od pohranjivanja podataka do izrade automatiziranih nadzornih ploča, sve to možete učiniti u Excelu i njegovim proračunskim tablicama.

Ako želite upotrijebiti VBA za automatizaciju svojih odgovornosti za sortiranje u Excelu, isprobajte ove učinkovite makronaredbe koje se lako primjenjuju.

Preuzmite lažni skup podataka

Za početak, možete preuzeti lažni skup podataka za rad na svojim makro vještinama u Excelu.

Budite uvjereni, kada se naviknete na ove makronaredbe i bolje razumijete kako stvari funkcioniraju, možete promijeniti kod kako bi odgovarao vašim vlastitim proračunskim tablicama za posao ili školu.

Možete preuzeti skup podataka koji se koristi u ovom članku ako ga želite pratiti.

preuzimanje datoteka: Excel skup podataka

1. Razvrstavanje jednog stupca pomoću Excel makronaredbi

Upotrijebite ovaj jednostavan kod za sortiranje stupca podataka u Excel proračunskoj tablici. Ako ste preuzeli lažni skup podataka, možete pokušati sortirati stupac E (Prodane jedinice).

Otvorite novu Excel datoteku i spremite je pomoću datoteke Radna knjiga s omogućenim makronaredbama Excel (.xlsm) vrsta radne knjige. Ova datoteka će pohraniti makronaredbu za razvrstavanje vaših podataka iz druge datoteke.

Povezano: Najbolji online tečajevi za svladavanje naprednog Excela

Vi ćete kontrolirati svoju datoteku(e) iz datoteke makronaredbe, koja će zasebno komunicirati s vašim radnim knjigama.

Unesite sljedeći kod:

Sub sortwithheaders()
Radne knjige("Financijski uzorak.xlsx").Listovi (1).Aktivirajte
Raspon("A1:P701").sort Key1:=Raspon("e1"), Order1:=xlAscending, Header:=xlYes
Kraj Sub

Gdje:

• Ključ 1: Definirajte stupce koje želite sortirati
• Narudžba 1: Način naručivanja (uzlazno/silazno)
• Zaglavlje: Ako vaš sadržaj ima zaglavlja, ova opcija će ostati kao xlDa. Alternativno, odaberite xlbr.

Raspon će se sastojati od početne ćelije i završne adrese ćelije tako da sve bude zarobljeno za potrebe sortiranja. Rezultat je da će se cijeli vaš skup podataka sortirati na temelju podataka u stupcu E.

2. Sortiranje dinamičkih podataka u jednom stupcu

Možda postoje slučajevi u kojima je vaša početna točka definirana, ali je vaša krajnja točka dinamična. U takvom slučaju možete učiniti svoj kôd dinamičkim tako da automatski pokupi kraj raspona.

Da biste prilagodili promjenu podataka, koristite kod u nastavku:

Sub sortwithheaders()
Radne knjige("Financijski uzorak.xlsx").Listovi (1).Aktivirajte
Raspon("A1", Range("A1").Kraj (xlDown)).sort Key1:=Range("e2"), Order1:=xlAscending, Header:=xlYes
Kraj Sub

Gdje:

• Kraj (xlDown): Ova će funkcija automatski odabrati zadnju popunjenu ćeliju

Bilješka: Ako formula naiđe na praznu ćeliju unutar stupca, smatrat će prethodnu ćeliju kao kraj raspona.

Povezano: Kako stvoriti prilagođene tipkovničke prečace u programu Microsoft Excel

3. Razvrstavanje više stupaca zajedno

Možda postoje situacije kada želite razvrstati podatke u više stupaca odjednom. Da biste to učinili, možete koristiti sljedeći kod kako biste postigli svoju svrhu:

Podrazvrstavanje više stupaca()
S radnim listovima ("Sheet1")
 Sa .Cells (1, "A").Trenutna regija
 .Cells.sort Key1:=.Range("B1"), Order1:=xlAscending, _
 Key2:=.Raspon("E1"), Red2:=xlAscending, _
 Orijentacija:=xlTopToBottom, Zaglavlje:=xlYes
 Završi s
 Završi s
Kraj Sub

4. Razvrstavanje stupaca na više listova

Kada imate posla s više listova, možda biste trebali pripremiti svoje podatke za stavljanje na nadzornu ploču. Jedan od najvažnijih aspekata pripreme podataka je njihovo sortiranje i slaganje podataka u određeni format kako biste ih predstavili svojim dionicima ili klijentima.

Jedna je mogućnost da ručno kružite kroz svaki list, sortirate potrebne stupce, a zatim nastavite na sljedeći korak. Alternativno, zašto ne dopustiti VBA da to učini umjesto vas?

Namjera koda u nastavku je da kruži kroz svaki dostupni list u radnoj knjizi i na temelju navedenih stupaca sortira dostupne podatke.

Povezano: Microsoft Excel funkcije pretraživanja za učinkovitije pretraživanje proračunskih tablica

Evo kako možete sortirati stupce na više listova:

PodvrstaWS()
Dim ws As Worksheet
'Aktivirajte predviđeni radni list
Radne knjige("Financijski uzorak.xlsx").Aktivirajte
'Automatski prođite kroz svaki pojedinačni radni list koristeći for petlju
Za svaki ws u ActiveWorkbook-u. plahte
'aktivirajte svaki pojedinačni radni list
ws. Aktivirati
'Definirajte raspon, a zatim sortirajte stupac prema vašim zahtjevima. U ovom slučaju samo je jedan stupac u sortiranju.
Raspon("A1", Range("p1").Kraj (xlDown)).sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYes
'Naredba se koristi za prelazak na sljedeći radni list, nakon što je prethodni radni list sortiran
Sljedeći ws
Kraj Sub

Sve informacije koje počinju jednostrukim navodnicima su VBA komentari. One se ne izvršavaju tijekom faze izvršenja. Međutim, svaki VBA komentar koji dodate značajan je dodatak kodu, jer možete definirati bit, funkcionalnost i druge relevantne dijelove unutar odjeljaka koda.

5. Kopiranje sortiranih podataka s jednog lista na drugi

Zamislite situaciju u kojoj želite sortirati podatke i kopirati cijeli skup podataka (ili njegove dijelove) u novododani list. U takvim slučajevima možete upotrijebiti kod u nastavku da izvršite zadatak:

PodvrstaWS()
Dim ws As Worksheet
'Aktivirajte predviđeni radni list
Radne knjige("Financijski uzorak.xlsx").Aktivirajte
'Automatski prođite kroz svaki pojedinačni radni list koristeći for petlju
Za svaki ws u ActiveWorkbook-u. plahte
'aktivirajte svaki pojedinačni radni list
ws. Aktivirati
'Definirajte raspon, a zatim sortirajte stupac prema vašim zahtjevima. 
'U ovom slučaju samo je jedan stupac u razvrstavanju.
Raspon("A1", Range("p1").Kraj (xlDown)).sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYes
'Naredba se koristi za prelazak na sljedeći radni list, nakon što je prethodni radni list sortiran
Sljedeći ws
'Stvorite novi radni list unutar radne knjige za pohranu novih podataka
ActiveWorkbook. plahte. Dodati. Naziv = "Rezultati"
'Kopiraj i zalijepi sortirane podatke u novododani list
Sheets("Sheet1").Raspon("A1:p701").Copy Destination:=Sheets("Results").Range("a1")
Kraj Sub

Gornji kod će sortirati vrijednosti u stupcu E, dodati novi list Rezultati u postojeću radnu knjigu i zalijepite sortirane rezultate u ćeliju A1.

Izrada makronaredbi za razvrstavanje u Excelu

Excel VBA je odličan jezik koji vam može uštedjeti puno vremena i truda. Korištenjem VBA makronaredbi možete stvoriti opsežne nadzorne ploče, jednostavno sortirati podatke s nekoliko klikova i s lakoćom izvoditi različite funkcije.

Srećom, Excelova funkcionalnost ne završava s makronaredbama. Pogledajte nekoliko savjeta i trikova kako biste postali učinkovitiji korisnik Excela.

9 najboljih web-mjesta i blogova za učenje Excel savjeta i trikova

Bilo da ste majstor u Excelu ili tek počinjete, evo devet najboljih web-mjesta i blogova koje možete koristiti da naučite neke savjete i trikove.

Pročitajte dalje

O autoru