Ugrás a tartalomra

Hogyan válogassunk munkalapokat ábécé / alfanumerikus sorrendbe az Excelben?

Szerző: Kelly Utolsó módosítás: 2020-04-30

Általában a munkalapok sorrendjét rendezheti vagy elrendezheti az Excelben úgy, hogy a lapfüleket a lapfülsorra húzza. De ha ezt több munkalap segítségével szeretné elvégezni, fontolja meg a következő trükkös módszereket a munkalapok gyors betűrendben / alfanumerikus sorrendbe rendezésére egy nagy munkafüzetben.

A munkalapok rendezése ábécé / alfanumerikus sorrendbe, VBA kóddal
Rendezd a munkalapokat ábécé / alfanumerikus sorrendben a Kutools for Excel segítségével


A munkalapok rendezése ábécé / alfanumerikus sorrendbe, VBA kóddal

Van egy makró a munkalapok alfa szerinti rendezéséhez a Microsoft támogatási központjában. A következő lépésekkel alkalmazhatjuk:

1.  Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2.  Kattints betétlap > Modulok, majd illessze be a következő makrót a Modul ablak.

VBA: A lapok rendezése ábécé / alfanumerikus sorrendbe

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. megnyomni a F5 gomb a makró futtatásához. A következő prompt mezőben kattintson a gombra Igen, az összes munkalap rendezése növekvő ábécé sorrendben történik; és kattintson Nem, az összes munkalap ábécé szerinti sorrendben lesz rendezve.


Rendezd a munkalapokat ábécé / alfanumerikus sorrendben a Kutools for Excel segítségével

Ha nem ismeri a makrókat, vagy más módszereket kedvel, akkor megpróbálhatja Kutools az Excel számára. Kutools az Excel számára's Levélek rendezése eszköz könnyen rendezheti az összes munkalapot.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Kattints Kutools Plus > Munkalap > Levélek rendezése. Lásd a képernyőképet:

2. Az Levélek rendezése párbeszédpanelen válasszon ki egy megfelelő rendezési típust a jobb oldali ablaktáblán, például Alfa rendezés, Alfa numerikus rendezés, majd kattintson a OK gomb. Lásd a képernyőképet:

Ezután az összes munkalap rendezése a megadott rendezési típus alapján történik. Lásd a képernyőképet:

doc-sort-sheet6

Kutools az Excel számára's Levélek rendezése eszköz gyorsan átrendezheti az aktív munkafüzet összes munkalapját. Több rendezési típust támogat, beleértve a Alfa rendezés, Alfa numerikus rendezés, Szín rendezés és a Fordított. Ezen felül mozgathatja a munkalapokat fel / le és visszaállíthatja a rendezést.

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Bemutató: Az összes munkalap rendezése ábécé / alfanumerikus sorrendbe


Kapcsolódó cikk:

A munkalapok lapjait szín szerint rendezheti

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations