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.
Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.
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í.
Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.
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ší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!
