Jak třídit listy v abecedním / alfanumerickém pořadí v aplikaci Excel?

Normálně můžete řadit nebo uspořádat pořadí karet listů v aplikaci Excel přetažením karet listů na panelu karet listu. Chcete-li to však provést s více listy, můžete zvážit následující složité způsoby, jak rychle seřadit listy v abecedním / alfanumerickém pořadí ve velkém sešitu.

Seřaďte pracovní listy v abecedním / alfanumerickém pořadí podle kódu VBA
Řazení pracovních listů v abecedním / alfanumerickém pořadí pomocí programu Kutools pro Excel

Seřaďte pracovní listy v abecedním / alfanumerickém pořadí podle kódu VBA

V centru podpory společnosti Microsoft je makro pro třídění listů podle alfa. Můžeme jej použít pomocí následujících kroků:

1.  Podržte stisknuté tlačítko ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2.  klikněte Vložit > Modula poté vložte následující makro do souboru Okno modulu.

VBA: Řazení listů v abecedním / alfanumerickém pořadí

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. zmáčkni F5 klíč ke spuštění tohoto makra. V následujícím řádku klepněte na Ano, budou všechny listy seřazeny podle vzestupného abecedního pořadí; a klikněte Ne, budou všechny listy seřazeny v sestupném abecedním pořadí.

Řazení pracovních listů v abecedním / alfanumerickém pořadí pomocí programu Kutools pro Excel

Pokud nejste obeznámeni s makry nebo dáváte přednost jiným způsobem, můžete to zkusit Kutools pro Excel. Kutools pro Excel's Třídit listy nástroj může snadno třídit všechny listy.

1, klikněte Kutools Plus > Pracovní list > Třídit listy. Viz snímek obrazovky:

2. V Třídit listy V dialogovém okně vyberte v pravém podokně jeden typ řazení, který potřebujete, například Alfa řazení, Alfa číselné řazení, a potom klepněte na tlačítko OK knoflík. Viz screenshot:

Poté se všechny listy seřadí podle zadaného typu řazení. Viz screenshot:

Kutools pro Excel's Třídit listy nástroj může rychle přeskupit všechny listy v aktivním sešitu. Podporuje několik typů řazení, včetně Alfa řazení, Alfa číselné řazení, Barevné třídění a Zvrátit. Kromě toho můžete také přesouvat pracovní listy nahoru / dolů a resetovat řazení.

Ukázka: Seřaďte všechny listy v abecedním / alfanumerickém pořadí

Související článek:

Řazení karet listu podle barvy

---

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup... 

---

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Stažení zdarma... Nákup...