Hoppa till huvudinnehåll

Hur sorterar man kalkylblad i alfabetisk / alfanumerisk ordning i Excel?

Normalt kan du sortera eller ordna kalkylbladets ordning i Excel genom att dra och släppa arkflikarna i arkflikens fält. Men för att få detta gjort med flera kalkylblad kan du överväga följande knepiga sätt att snabbt sortera kalkylblad i alfabetisk / alfanumerisk ordning i en stor arbetsbok.

Sortera kalkylblad i alfabetisk / alfanumerisk ordning med VBA-kod
Sortera kalkylblad i alfabetisk / alfanumerisk ordning med Kutools för Excel


Sortera kalkylblad i alfabetisk / alfanumerisk ordning med VBA-kod

Det finns ett makro för att sortera kalkylblad efter alpha som publiceras i Microsofts supportcenter. Vi kan använda den med följande steg:

1.  Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2.  Klicka Insert > Modulernaoch klistra sedan in följande makro i Modulfönster.

VBA: Sortera ark i alfabetisk / alfanumerisk ordning

Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. tryck på F5 för att köra detta makro. Klicka på i följande rutan Ja, alla kalkylblad sorteras i stigande alfabetisk ordning; och klicka Nejkommer alla kalkylblad att sorteras efter fallande alfabetisk ordning.


Sortera kalkylblad i alfabetisk / alfanumerisk ordning med Kutools för Excel

Om du inte känner till makron eller föredrar på andra sätt kan du prova Kutools för Excel. Kutools för Excel's Sortera ark verktyget kan enkelt sortera alla kalkylblad.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. Klicka Kutools Plus > Arbetsblad > Sortera ark. Se skärmdump:

2. I Sortera ark Välj en sorteringstyp som du behöver i den högra rutan, till exempel Alpha sortering, Alfanumerisk sortering, och klicka sedan på OK knapp. Se skärmdump:

Sedan sorteras alla kalkylblad utifrån den angivna sorteringstypen. Se skärmdump:

doc-sorteringsark6

Kutools för Excel's Sortera ark verktyget kan snabbt ordna om alla kalkylblad i den aktiva arbetsboken. Den stöder flera sorteringstyper, inklusive Alpha sortering, Alfanumerisk sortering, Färgsortering och Vända. Dessutom kan du också flytta upp / ner kalkylblad och återställa sorteringen.

  Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Demo: Sortera alla kalkylblad i alfabetisk / alfanumerisk ordning


Relaterad artikel:

Sortera kalkylbladets flikar efter färg

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Comments (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations