Kako razvrstiti delovne liste v abecednem / alfanumeričnem vrstnem redu v Excelu?
Običajno lahko v Excelu razvrstite ali razvrstite zavihke delovnih listov tako, da povlečete in spustite zavihke listov na vrstico z zavihki listov. Če pa želite to narediti z več delovnimi listi, lahko razmislite o naslednjih zapletenih načinih za hitro razvrščanje delovnih listov v abecednem / alfanumeričnem vrstnem redu v velikem delovnem zvezku.
Razvrstite delovne liste po abecednem / alfanumeričnem vrstnem redu s kodo VBA
Razvrstite delovne liste v abecednem / alfanumeričnem vrstnem redu s programom Kutools za Excel
Razvrstite delovne liste po abecednem / alfanumeričnem vrstnem redu s kodo VBA
V Microsoftovem centru za podporo je makro za razvrščanje delovnih listov po alfa različici. Lahko ga uporabimo z naslednjimi koraki:
1. Drži dol ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin nato v mapo prilepite naslednji makro Okno modula.
VBA: Razvrsti liste po abecednem / alfanumeričnem vrstnem redu
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. Pritisnite tipko F5 tipko za zagon tega makra. V naslednjem pozivnem polju kliknite Da, vsi delovni listi bodo razvrščeni po naraščajočem abecednem vrstnem redu; in kliknite Ne, vsi delovni listi bodo razvrščeni po padajočem abecednem vrstnem redu.
Razvrstite delovne liste v abecednem / alfanumeričnem vrstnem redu s programom Kutools za Excel
Če makrov ne poznate ali imate raje druge načine, lahko poskusite Kutools za Excel. Kutools za Excel's Razvrsti liste orodje lahko enostavno razvrsti vse delovne liste.
Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.
1. Kliknite Kutools Plus > Delovni list > Razvrsti liste. Oglejte si posnetek zaslona:
2. v Razvrsti liste v desnem podoknu izberite eno vrsto razvrščanja, na primer Alfa Razvrsti, Črkovno številčno razvrščanjein nato kliknite OK . Oglejte si posnetek zaslona:
Nato so vsi delovni listi razvrščeni glede na določeno vrsto razvrščanja. Oglejte si posnetek zaslona:
Kutools za Excel's Razvrsti liste orodje lahko hitro preuredi vse delovne liste v aktivnem delovnem zvezku. Podpira več vrst razvrščanja, vključno z Alfa Razvrsti, Črkovno številčno razvrščanje, Razvrstitev barv in Povratne. Poleg tega lahko premikate delovne liste gor / dol in ponastavite razvrščanje.
Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
Predstavitev: razvrstite vse delovne liste po abecednem / alfanumeričnem vrstnem redu
Povezani članek:
Razvrstite zavihke delovnih listov po barvah
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!