5 siistiä Microsoft Excel -makroa tietojen lajitteluun

Excel-makrot eivät ehkä ole yhtä kattavia kuin muut automaatiotyökalut, mutta Excel VBA: n pätevyyttä ja tehokkuutta ei voida heikentää. Jos työskentelet Excelissä ja muissa Microsoft Office -työkaluissa, kuten Wordissa ja Accessissa, et voi mennä pieleen VBA: n ja sen ominaisuuksien kanssa.

MS Excel on tehokas työkalu, joka tarjoaa käyttäjilleen runsaasti vaihtoehtoja. Tietojen tallentamisesta automatisoitujen hallintapaneelien luomiseen voit tehdä kaiken Excelissä ja sen laskentataulukoissa.

Jos haluat käyttää VBA: ta automatisoidaksesi lajittelutehtäväsi Excelissä, kokeile näitä tehokkaita, helposti sovellettavia makroja.

Lataa Dummy Dataset

Ensinnäkin voit ladata valetietojoukon Excel-makrotaitosi parantamiseksi.

Voit olla varma, että kun olet perehtynyt näihin makroihin ja ymmärrät paremmin, miten asiat toimivat, voit muuttaa koodia omiin laskentataulukoihisi töissä tai koulussa.

Voit ladata tässä artikkelissa käytetyn tietojoukon, jos haluat seurata sitä.

ladata: Excelin tietojoukko

1. Yhden sarakkeen lajittelu Excel-makrojen avulla

Käytä tätä yksinkertaista koodia lajitellaksesi tietosarakkeen Excel-laskentataulukossa. Jos latasit valetietojoukon, voit yrittää lajitella sarakkeen E (Myydyt yksiköt).

Avaa uusi Excel-tiedosto ja tallenna se Excel-makrokäyttöinen työkirja (.xlsm) työkirjan tyyppi. Tämä tiedosto tallentaa makron tietojen lajittelemiseksi toisesta tiedostosta.

Aiheeseen liittyvä: Parhaat online-kurssit edistyneen Excelin hallitsemiseen

Hallitset tiedostojasi makrotiedostosta, joka on vuorovaikutuksessa työkirjojen kanssa erikseen.

Syötä seuraava koodi:

Alalajittelu otsikoilla()
Työkirjat("Financial Sample.xlsx").Sheets (1).Aktivoi
Alue("A1:P701").sort Key1:=Alue("e1"), Järjestys1:=xlNouseva, Otsikko:=xlKyllä
Lopeta ala

Missä:

• Avain1: Määritä sarakkeet, jotka haluat lajitella
• Tilaus1: Järjestystapa (nouseva/laskeva)
• Otsikko: Jos sisällölläsi on otsikoita, tämä vaihtoehto säilyy xlKyllä. Vaihtoehtoisesti valitse xlNo.

Alue koostuu aloitussolusta ja loppusolun osoitteesta, jotta kaikki kaapataan lajittelua varten. Tuloksena on, että koko tietojoukkosi lajitellaan sarakkeen E tietojen perusteella.

2. Dynaamisten tietojen lajittelu yhteen sarakkeeseen

Saattaa olla tapauksia, joissa aloituspisteesi on määritetty, mutta päätepisteesi on dynaaminen. Siinä tapauksessa voit tehdä koodistasi dynaamisen niin, että se poimii alueen lopun automaattisesti.

Käytä alla olevaa koodia tietojen muutoksen huomioimiseksi:

Alalajittelu otsikoilla()
Työkirjat("Financial Sample.xlsx").Sheets (1).Aktivoi
Alue("A1", Range("A1").Loppu (xlDown)).sort Key1:=Alue("e2"), Järjestys1:=xlNouseva, Otsikko:=xlKyllä
Lopeta ala

Missä:

• Loppu (xlDown): Tämä toiminto valitsee automaattisesti viimeksi täytetyn solun

Merkintä: Jos kaava kohtaa sarakkeen sisällä tyhjän solun, se pitää edellistä solua alueen päätteeksi.

Aiheeseen liittyvä: Kuinka luoda mukautettuja pikanäppäimiä Microsoft Excelissä

3. Lajittele useita sarakkeita yhdessä

Saattaa olla tilanteita, joissa haluat lajitella tiedot useisiin sarakkeisiin kerralla. Voit tehdä tämän käyttämällä seuraavaa koodia saavuttaaksesi tavoitteesi:

AlalajitteluMultipleColumns()
Työarkeilla ("Sheet1")
 Kanssa .Cells (1, "A"). CurrentRegion
 .Cells.sort Key1:=.Range("B1"), Järjestys1:=xlNouseva, _
 Avain2:=.Alue("E1"), Järjestys2:=xlNouseva, _
 Orientation:=xlTopToBottom, Header:=xlYes
 Lopeta kanssa
 Lopeta kanssa
Lopeta ala

4. Sarakkeiden lajittelu useille arkeille

Kun käsittelet useita taulukoita, sinun kannattaa ehkä laittaa tietosi kojelautaan. Yksi tiedon valmistelun tärkeimmistä asioista on lajittelu ja tietojen järjestäminen tiettyyn muotoon esitettäväksi sidosryhmillesi tai asiakkaillesi.

Yksi vaihtoehto on selata jokainen arkki manuaalisesti, lajitella tarvittavat sarakkeet ja jatkaa sitten seuraavaan vaiheeseen. Vaihtoehtoisesti, miksi et antaisi VBA: n tehdä sitä puolestasi?

Alla olevan koodin tarkoituksena on selata työkirjan jokaisen käytettävissä olevan arkin läpi ja lajitella käytettävissä olevat tiedot määritettyjen sarakkeiden perusteella.

Aiheeseen liittyvä: Microsoft Excelin hakutoiminnot laskentataulukoiden tehokkaaseen hakemiseen

Näin voit lajitella sarakkeita useille taulukoille:

AlalajitteluWS()
Dim ws As Worksheet
'Aktivoi tarkoitettu laskentataulukko
Työkirjat("Financial Sample.xlsx"). Aktivoi
Selaa jokaisen yksittäisen laskentataulukon läpi automaattisesti käyttämällä silmukkaa
Jokaiselle ws: lle ActiveWorkbookissa. Arkkia
'aktivoi jokainen yksittäinen laskentataulukko
ws. Aktivoida
'Määritä alue ja lajittele sitten sarake tarpeidesi mukaan. Tässä tapauksessa vain yksi sarake lajitellaan.
Alue("A1", Range("p1").Loppu (xlDown)).sort Key1:=Alue("E1"), Järjestys1:=xlLaskeva, Otsikko:=xlKyllä
'Komentoa käytetään siirtymään seuraavaan laskentataulukkoon, kun edellinen taulukko on lajiteltu
Seuraava ws
Lopeta ala

Kaikki yksittäisillä lainausmerkeillä alkavat tiedot ovat VBA-kommentteja. Näitä ei suoriteta suoritusvaiheen aikana. Jokainen lisäämäsi VBA-kommentti on kuitenkin mielekäs lisäys koodiin, koska voit määrittää koodin olemuksen, toiminnallisuuden ja muut asiaankuuluvat osat koodiosissa.

5. Lajiteltujen tietojen kopioiminen arkilta toiselle

Kuvittele tilanne, jossa haluat lajitella tiedot ja kopioida koko tietojoukon (tai sen osia) äskettäin lisätylle taulukolle. Tällaisissa tapauksissa voit käyttää alla olevaa koodia suorittamaan käsillä oleva tehtävä:

AlalajitteluWS()
Dim ws As Worksheet
'Aktivoi tarkoitettu laskentataulukko
Työkirjat("Financial Sample.xlsx"). Aktivoi
Selaa jokaisen yksittäisen laskentataulukon läpi automaattisesti käyttämällä silmukkaa
Jokaiselle ws: lle ActiveWorkbookissa. Arkkia
'aktivoi jokainen yksittäinen laskentataulukko
ws. Aktivoida
'Määritä alue ja lajittele sitten sarake tarpeidesi mukaan. 
"Tässä tapauksessa vain yksi sarake lajitellaan.
Alue("A1", Range("p1").Loppu (xlDown)).sort Key1:=Alue("E1"), Järjestys1:=xlLaskeva, Otsikko:=xlKyllä
'Komentoa käytetään siirtymään seuraavaan laskentataulukkoon, kun edellinen taulukko on lajiteltu
Seuraava ws
'Luo työkirjaan uusi laskentataulukko tallentaaksesi uudet tiedot
ActiveWorkbook. Arkkia. Lisätä. Nimi = "Tulokset"
Kopioi ja liitä lajitellut tiedot juuri lisättyyn arkkiin
Sheets("Sheet1").Alue("A1:p701").Kopioi Destination:=Sheets("Tulokset").Alue("a1")
Lopeta ala

Yllä oleva koodi lajittelee sarakkeen E arvot, lisää uuden arkin Tulokset olemassa olevaan työkirjaan ja liitä lajitellut tulokset soluun A1.

Lajittelumakrojen luominen Excelissä

Excel VBA on näppärä kieli, joka voi säästää paljon aikaa ja vaivaa. Käyttämällä VBA-makroja voit luoda laajoja kojetauluja, lajitella tietoja helposti muutamalla napsautuksella ja suorittaa erilaisia ​​toimintoja helposti.

Onneksi Excelin toiminnallisuus ei lopu makroihin. Tutustu vinkkeihin ja temppuihin, joiden avulla voit tulla tehokkaammaksi Excel-käyttäjäksi.

9 parasta verkkosivustoa ja blogia, joista voit oppia Excel-vinkkejä ja temppuja

Olitpa Excelin mestari tai vasta aloittamassa, tässä on yhdeksän suosituinta verkkosivustoa ja blogia, joiden avulla voit oppia vinkkejä ja temppuja.

Lue Seuraava

Kirjailijasta