Excel-makron kanske inte är lika omfattande som andra automatiseringsverktyg, men giltigheten och effektiviteten hos Excel VBA kan inte undergrävas. Om du arbetar i Excel och andra Microsoft Office-verktyg som Word och Access kan du inte gå fel med VBA och dess möjligheter.
MS Excel är ett kraftfullt verktyg som erbjuder massor av alternativ till sina användare. Från att lagra data till att skapa automatiserade instrumentpaneler, du kan göra allt i Excel och dess kalkylblad.
Om du vill använda VBA för att automatisera ditt sorteringsansvar i Excel, prova dessa effektiva makron som är lätta att använda.
Ladda ner en Dummy Dataset
Till att börja med kan du ladda ner en dummy-datauppsättning för att arbeta med dina Excel-makrofärdigheter.
Var säker, när du väl har fått kläm på dessa makron och bättre förstår hur saker fungerar kan du ändra koden så att den passar dina egna kalkylblad för jobbet eller skolan.
Du kan ladda ner datasetet som används i den här artikeln om du vill följa med.
Ladda ner: Excel Dataset
1. Sortera en kolumn med Excel-makron
Använd denna enkla kod för att sortera en datakolumn i ett Excel-kalkylblad. Om du laddade ner dummydatasetet kan du prova att sortera kolumn E (Sålda enheter).
Öppna en ny Excel-fil och spara den med en Excel-makroaktiverad arbetsbok (.xlsm) arbetsbok typ. Den här filen lagrar makrot för att sortera dina data från en annan fil.
Du kommer att styra dina filer från makrofilen, som kommer att interagera med dina arbetsböcker separat.
Ange följande kod:
Sub sortwithheaders()
Workbooks("Financial Sample.xlsx").Sheets(1).Activate
Range("A1:P701").sort Key1:=Range("e1"), Order1:=xlAscending, Header:=xlYes
End Sub
Var:
Nyckel 1: Definiera kolumnen/kolumnerna som du vill sortera Order1: Beställningsmetod (stigande/fallande) Rubrik: Om ditt innehåll har rubriker förblir det här alternativet som xlJa. Alternativt, välj xlNr.
Området kommer att bestå av startcellen och slutcellens adress så att allt fångas för sorteringsändamål. Resultatet är att hela din datamängd kommer att sorteras baserat på data i kolumn E.
2. Sortera dynamiska data i en enda kolumn
Det kan finnas tillfällen där din startpunkt är definierad, men din slutpunkt är dynamisk. I ett sådant fall kan du göra din kod dynamisk så att den automatiskt tar upp slutet av intervallet.
Använd koden nedan för att hantera förändringen i data:
Sub sortwithheaders()
Workbooks("Financial Sample.xlsx").Sheets(1).Activate
Range("A1", Range("A1").End(xlDown)).sort Key1:=Range("e2"), Order1:=xlAscending, Header:=xlYes
End Sub
Var:
End(xlDown): Denna funktion kommer att automatiskt välja den senast fyllda cellen automatiskt
Notera: Om formeln stöter på en tom cell i en kolumn, kommer den att betrakta den föregående cellen som slutet av intervallet.
3. Sortera flera kolumner tillsammans
Det kan finnas situationer när du vill sortera data i flera kolumner på en gång. För att göra det kan du använda följande kod för att uppnå ditt syfte:
Sub SortMultipleColumns()
With Worksheets("Sheet1")
With .Cells(1, "A").CurrentRegion
.Cells.sort Key1:=.Range("B1"), Order1:=xlAscending, _
Key2:=.Range("E1"), Order2:=xlAscending, _
Orientation:=xlTopToBottom, Header:=xlYes
End With
End With
End Sub
4. Sortera kolumner över flera ark
När du har att göra med flera ark, kanske du vill göra din data redo att läggas in i en instrumentpanel. En av de viktigaste aspekterna av förberedelse av data är att sortera den och få informationen ordnad i ett visst format för att presentera för dina intressenter eller kunder.
Ett alternativ är att bläddra igenom varje ark manuellt, sortera önskade kolumner och sedan gå vidare till nästa steg. Alternativt, varför inte låta VBA göra det åt dig?
Avsikten med koden nedan är att bläddra igenom varje tillgängligt blad i arbetsboken och sortera tillgänglig data baserat på de angivna kolumnerna.
Så här kan du sortera kolumner över flera ark:
Sub SortWS()
Dim ws As Worksheet
'Activate the intended worksheet
Workbooks("Financial Sample.xlsx").Activate
'Cycle through each individual worksheet automatically using for loop
For Each ws In ActiveWorkbook.Sheets
'activate each individual worksheet
ws.Activate
'Define the range and then sort the column basis your requirements. In this case, only one column in being sorted.
Range("A1", Range("p1").End(xlDown)).sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYes
'Command used to cycle to the next worksheet, once the previous worksheet has been sorted
Next ws
End Sub
All information som börjar med enstaka citat är VBA-kommentarer. Dessa utförs inte under utförandestadiet. Men varje VBA-kommentar du lägger till är ett meningsfullt tillägg till koden, eftersom du kan definiera essensen, funktionaliteten och andra relevanta delar inom kodsektionerna.
5. Kopiera sorterad data från ett blad till ett annat
Föreställ dig en situation där du vill sortera data och kopiera hela datamängden (eller delar därav) till ett nyligen tillagt ark. I sådana fall kan du använda koden nedan för att utföra uppgiften:
Sub SortWS()
Dim ws As Worksheet
'Activate the intended worksheet
Workbooks("Financial Sample.xlsx").Activate
'Cycle through each individual worksheet automatically using for loop
For Each ws In ActiveWorkbook.Sheets
'activate each individual worksheet
ws.Activate
'Define the range and then sort the column basis your requirements.
'In this case, only one column in being sorted.
Range("A1", Range("p1").End(xlDown)).sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYes
'Command used to cycle to the next worksheet, once the previous worksheet has been sorted
Next ws
'Create a new worksheet within the workbook to store the new data
ActiveWorkbook.Sheets.Add.Name = "Results"
'Copy paste the sorted data into the newly added sheet
Sheets("Sheet1").Range("A1:p701").Copy Destination:=Sheets("Results").Range("a1")
End Sub
Ovanstående kod kommer att sortera värdena i kolumn E, lägga till ett nytt ark Resultat i den befintliga arbetsboken och klistra in de sorterade resultaten i cellen A1.
Skapa sorteringsmakron i Excel
Excel VBA är ett snyggt språk som kan spara mycket tid och ansträngning. Genom att använda VBA-makron kan du skapa omfattande instrumentpaneler, enkelt sortera data med några få klick och utföra olika funktioner med lätthet.
Som tur är slutar inte Excels funktionalitet med makron. Kolla in några tips och tricks för att bli en mer effektiv Excel-användare.
Om författaren
Gaurav Siyal (24 artiklar publicerade)
Gaurav Siyal har två års erfarenhet av att skriva, skriva för en rad digitala marknadsföringsföretag och programvarulivscykeldokument.
Mer från Gaurav Siyal
Prenumerera på vårt nyhetsbrev
Gå med i vårt nyhetsbrev för tekniska tips, recensioner, free e-böcker och exklusiva erbjudanden!
Klicka här för att prenumerera
