Salt la conținutul principal

Cum se sortează foile de lucru în ordine alfabetică / alfanumerică în Excel?

În mod normal, puteți sorta sau aranja filele de lucru în Excel, glisând și plasând filele de pe foaia de bare. Dar pentru a face acest lucru cu mai multe foi de lucru, puteți lua în considerare următoarele modalități dificile de a sorta rapid foile de lucru în ordine alfabetică / alfanumerică într-un registru de lucru mare.

Sortați foile de lucru în ordine alfabetică / alfanumerică cu codul VBA
Sortați foile de lucru în ordine alfabetică / alfanumerică cu Kutools for Excel


Sortați foile de lucru în ordine alfabetică / alfanumerică cu codul VBA

Există un macro pentru sortarea foilor de lucru după alfa postat în centrul de asistență Microsoft. Îl putem aplica cu următorii pași:

1.  Țineți apăsată tasta ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2.  Clic Insera > Module, apoi lipiți următoarea macro în fișierul Fereastra modulului.

VBA: Sortează foile în ordine alfabetică / alfanumerică

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. apasă pe F5 tasta pentru a rula această macro. În următoarea casetă de prompt, faceți clic pe Da, toate foile de lucru vor fi sortate în ordine alfabetică crescătoare; și faceți clic pe Nu, toate foile de lucru vor fi sortate în ordine alfabetică descendentă.


Sortați foile de lucru în ordine alfabetică / alfanumerică cu Kutools for Excel

Dacă nu sunteți familiarizați cu macro-urile sau preferați alte moduri, puteți încerca Kutools for Excel. Kutools for Excel's Sortează foi instrumentul poate sorta cu ușurință toate foile de lucru.

Înainte de a aplica Kutools for Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Clic Kutools Plus > Fisa de lucru > Sortează foi. Vedeți captura de ecran:

2. În Sortează foi caseta de dialog, selectați un tip de sortare de care aveți nevoie în panoul din dreapta, cum ar fi Sortare alfa, Sortare alfa numerică, apoi faceți clic pe OK buton. Vedeți captura de ecran:

Apoi, toate foile de lucru sunt sortate pe baza tipului de sortare specificat. Vedeți captura de ecran:

doc-sort-sheets6

Kutools for Excel's Sortează foi instrumentul poate rearanja rapid toate foile de lucru din registrul de lucru activ. Acceptă mai multe tipuri de sortare, inclusiv Sortare alfa, Sortare alfa numerică, Sortare culoare și Inversa. În plus, puteți, de asemenea, să mutați în sus / în jos foi de lucru și să resetați sortarea.

  Dacă doriți să aveți o încercare gratuită (30-zi) a acestei utilitati, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Demo: Sortează toate foile de lucru în ordine alfabetică / alfanumerică


Articol asociat:

Sortați filele foii de lucru după culoare

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

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