5 Šaunios Microsoft Excel makrokomandos duomenims rūšiuoti

„Excel“ makrokomandos gali būti ne tokios išsamios kaip kiti automatizavimo įrankiai, tačiau „Excel VBA“ galiojimas ir efektyvumas negali pakenkti. Jei dirbate su „Excel“ ir kitais „Microsoft Office“ įrankiais, tokiais kaip „Word“ ir „Access“, naudodamiesi VBA ir jos galimybėmis nesuklysite.

MS Excel yra galingas įrankis, savo vartotojams siūlantis daugybę galimybių. Nuo duomenų saugojimo iki automatinių prietaisų skydelių kūrimo – visa tai galite padaryti naudodami „Excel“ ir jos skaičiuokles.

Jei norite naudoti VBA automatizuoti savo rūšiavimo pareigas programoje „Excel“, išbandykite šias veiksmingas lengvai pritaikomas makrokomandas.

Atsisiųskite fiktyvų duomenų rinkinį

Pradedantiesiems galite atsisiųsti fiktyvų duomenų rinkinį, kad galėtumėte tobulinti savo „Excel“ makrokomandos įgūdžius.

Būkite tikri, kai įvaldysite šias makrokomandas ir geriau suprasite, kaip viskas veikia, galite pakeisti kodą, kad jis atitiktų jūsų darbo ar mokyklos skaičiuokles.

Galite atsisiųsti šiame straipsnyje naudojamą duomenų rinkinį, jei norite sekti.

parsisiųsti: „Excel“ duomenų rinkinys

1. Vieno stulpelio rūšiavimas naudojant „Excel“ makrokomandas

Naudokite šį paprastą kodą duomenų stulpeliui rūšiuoti Excel skaičiuoklėje. Jei atsisiuntėte fiktyvų duomenų rinkinį, galite pabandyti rūšiuoti E stulpelį (Parduoti vienetai).

Atidarykite naują „Excel“ failą ir išsaugokite jį naudodami a „Excel“ darbaknygė su makrokomandomis (.xlsm) darbaknygės tipas. Šis failas išsaugos makrokomandą, kad būtų galima rūšiuoti duomenis iš kito failo.

Susijęs: Geriausi internetiniai „Excel“ tobulinimosi kursai

Failą (-us) valdysite iš makrokomandos failo, kuris atskirai sąveikaus su jūsų darbaknygėmis.

Įveskite šį kodą:

Sub rūšiuoti su antraštėmis ()
Darbaknygės("Finansinis pavyzdys.xlsx").Sheets (1).Suaktyvinti
Diapazonas("A1:P701").sort Key1:=Range("e1"), Order1:=xlAscending, Header:=xlYes
Pabaigos sub

Kur:

• 1 raktas: Apibrėžkite stulpelį (-ius), kurį (-ius) norite rūšiuoti
• 1 užsakymas: Užsakymo būdas (didėjimo / mažėjimo tvarka)
• Antraštė: Jei jūsų turinys turi antraštes, ši parinktis išliks tokia xlTaip. Arba pasirinkite xlNr.

Diapazoną sudarys pradžios langelis ir pabaigos langelio adresas, kad viskas būtų užfiksuota rūšiavimo tikslais. Dėl to visas duomenų rinkinys bus surūšiuotas pagal E stulpelio duomenis.

2. Dinaminių duomenų rūšiavimas viename stulpelyje

Gali būti atvejų, kai jūsų pradžios taškas yra apibrėžtas, bet jūsų galutinis taškas yra dinamiškas. Tokiu atveju galite padaryti kodą dinamišką, kad jis automatiškai paimtų diapazono pabaigą.

Norėdami prisitaikyti prie duomenų pasikeitimo, naudokite toliau pateiktą kodą:

Sub rūšiuoti su antraštėmis ()
Darbaknygės("Finansinis pavyzdys.xlsx").Sheets (1).Suaktyvinti
Diapazonas("A1", Range("A1").Pabaiga (xlDown)).rūšiavimo raktas1:=diapazonas("e2"), tvarka1:=xldidėjantis, antraštė:=xlTaip
Pabaigos sub

Kur:

• Pabaiga (xlDown): Ši funkcija automatiškai parinks paskutinį užpildytą langelį

Pastaba: jei formulė aptinka tuščią langelį stulpelyje, ankstesnis langelis bus laikomas diapazono pabaiga.

Susijęs: Kaip sukurti pasirinktinius sparčiuosius klavišus „Microsoft Excel“.

3. Kelių stulpelių rūšiavimas kartu

Gali būti situacijų, kai norite vienu metu rūšiuoti duomenis keliuose stulpeliuose. Norėdami tai padaryti, galite naudoti šį kodą, kad pasiektumėte savo tikslą:

Sub SortMultipleColumns()
Su darbalapiais („Sheet1“)
 Su .Cells (1, "A").CurrentRegion
 .Cells.sort Key1:=.Range("B1"), Order1:=xlAscending, _
 Key2:=.Range("E1"), Order2:=xlAscending, _
 Orientacija:=xlTopToBottom, Header:=xlTaip
 Baigti su
 Baigti su
Pabaigos sub

4. Stulpelių rūšiavimas keliuose lapuose

Kai dirbate su keliais lapais, galbūt norėsite paruošti duomenis, kad juos būtų galima įtraukti į prietaisų skydelį. Vienas iš svarbiausių duomenų rengimo aspektų yra jų rūšiavimas ir duomenų sutvarkymas tam tikru formatu, kad galėtumėte juos pateikti savo suinteresuotosioms šalims ar klientams.

Viena iš galimybių – rankiniu būdu pereiti per kiekvieną lapą, surūšiuoti reikiamus stulpelius ir pereiti prie kito veiksmo. Arba kodėl gi neleisti VBA to padaryti už jus?

Toliau pateikto kodo tikslas – peržiūrėti kiekvieną turimą darbaknygės lapą ir pagal nurodytus stulpelius surūšiuoti turimus duomenis.

Susijęs: „Microsoft Excel“ paieškos funkcijos leidžia efektyviau ieškoti skaičiuoklių

Štai kaip galite rūšiuoti stulpelius keliuose lapuose:

Antrinis rūšiavimasWS()
Dim ws kaip darbalapis
„Suaktyvinkite numatytą darbalapį
Workbooks ("Finansinis pavyzdys.xlsx"). Suaktyvinkite
„Automatiškai pereikite per kiekvieną atskirą darbalapį naudodami for ciklus
Kiekvienam ws „ActiveWorkbook“. Lakštai
'aktyvinti kiekvieną atskirą darbalapį
ws. Suaktyvinti
Apibrėžkite diapazoną ir rūšiuokite stulpelį pagal savo poreikius. Šiuo atveju rūšiuojamas tik vienas stulpelis.
Diapazonas("A1", Diapazonas("p1").Pabaiga (xlDown)).rūšiavimo raktas1:=diapazonas("E1"), tvarka1:=xlmažėjantis, antraštė:=xlTaip
„Komanda naudojama norint pereiti prie kito darbalapio, kai ankstesnis darbalapis buvo surūšiuotas
Kitas ws
Pabaigos sub

Visa informacija, prasidedanti pavienėmis kabutėmis, yra VBA komentarai. Jie nevykdomi vykdymo etape. Tačiau kiekvienas jūsų pridėtas VBA komentaras yra reikšmingas kodo papildymas, nes kodo skyriuose galite apibrėžti esmę, funkcionalumą ir kitas susijusias dalis.

5. Surūšiuotų duomenų kopijavimas iš vieno lapo į kitą

Įsivaizduokite situaciją, kai norite rūšiuoti duomenis ir nukopijuoti visą duomenų rinkinį (ar jo dalis) į naujai pridėtą lapą. Tokiais atvejais galite naudoti toliau pateiktą kodą, kad atliktumėte užduotį:

Antrinis rūšiavimasWS()
Dim ws kaip darbalapis
„Suaktyvinkite numatytą darbalapį
Workbooks ("Finansinis pavyzdys.xlsx"). Suaktyvinkite
„Automatiškai pereikite per kiekvieną atskirą darbalapį naudodami for ciklus
Kiekvienam ws „ActiveWorkbook“. Lakštai
'aktyvinti kiekvieną atskirą darbalapį
ws. Suaktyvinti
Apibrėžkite diapazoną ir rūšiuokite stulpelį pagal savo poreikius. 
„Šiuo atveju rūšiuojamas tik vienas stulpelis.
Diapazonas("A1", Diapazonas("p1").Pabaiga (xlDown)).rūšiavimo raktas1:=diapazonas("E1"), tvarka1:=xlmažėjantis, antraštė:=xlTaip
„Komanda naudojama norint pereiti prie kito darbalapio, kai ankstesnis darbalapis buvo surūšiuotas
Kitas ws
„Sukurkite naują darbalapį darbaknygėje, kad išsaugotumėte naujus duomenis
ActiveWorkbook. Lakštai. Papildyti. Vardas = "Rezultatai"
„Nukopijuokite ir įklijuokite surūšiuotus duomenis į naujai pridėtą lapą
Sheets("Sheet1").Range("A1:p701").Kopijuoti Destination:=Sheets("Rezultatai").Range("a1")
Pabaigos sub

Aukščiau pateiktas kodas surūšiuos reikšmes E stulpelyje, pridės naują lapą Rezultatai į esamą darbaknygę ir įklijuokite surūšiuotus rezultatus langelyje A1.

Rūšiavimo makrokomandų kūrimas programoje „Excel“.

„Excel VBA“ yra puiki kalba, kuri gali sutaupyti daug laiko ir pastangų. Naudodami VBA makrokomandas galite sukurti plačias informacijos suvestines, lengvai rūšiuoti duomenis keliais paspaudimais ir lengvai atlikti įvairias funkcijas.

Laimei, „Excel“ funkcionalumas nesibaigia makrokomandomis. Peržiūrėkite keletą patarimų ir gudrybių, kaip tapti efektyvesniu „Excel“ vartotoju.

9 populiariausios svetainės ir tinklaraščiai, kuriuose galite sužinoti „Excel“ patarimų ir gudrybių

Nesvarbu, ar esate „Excel“ meistras, ar tik pradedate darbą, čia yra devynios populiariausios svetainės ir tinklaraščiai, kuriuos galite naudoti norėdami sužinoti patarimų ir gudrybių.

Skaitykite toliau

Apie autorių