Kako razvrstiti delovne liste v abecednem / alfanumeričnem vrstnem redu v Excelu?

Razvrščanje delovnih listov v Excelu po abecednem ali alfanumeričnem vrstnem redu lahko močno izboljša organizacijo in učinkovitost vašega delovnega zvezka, zlasti če imate opravka z velikim številom listov. Ta vodnik vas bo vodil skozi nekaj metod, kako to doseči, pri čemer bo poskrbel za različne stopnje udobja uporabnika z Excelom.

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()
'Updateby Extendoffice
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

Odkrijte vrhunskega pomočnika v Excelu – Kutools za Excel's Razvrsti liste orodje! Ne glede na to, koliko delovnih listov imate, vam jih zlahka pomaga organizirati. Podpira različne vrste razvrščanja, vključno z Alpha Sort, Alpha Numeric Sort, Color Sort in Reverse. Poleg tega lahko poljubno premikate delovne liste gor in dol ter preprosto ponastavite razvrščanje. Naj bo vaše delo v Excelu učinkovitejše in priročnejše!

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:

Ta članek ponuja dve metodi za razvrščanje delovnih listov po abecednem ali alfanumeričnem vrstnem redu: kodo VBA in Kutools za Excel. Izberite način, ki najbolj ustreza vašim potrebam. Metoda kode VBA je primerna za tiste, ki poznajo skriptiranje, in ponuja zelo prilagodljivo rešitev. Medtem Kutools za Excel ponuja uporabniku prijazno orodje za razvrščanje listov, ki hitro in učinkovito uredi vse delovne liste brez kakršnega koli kodiranja. Če vas zanima več nasvetov in trikov za Excel, naše spletno mesto ponuja na tisoče vadnic.

Povezani članek:

Razvrstite zavihke delovnih listov po barvah