Preskoči na glavno vsebino

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:

doc-sort-listi6

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

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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...

zavihek kte 201905


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!

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