Vai al contenuto principale

Come ordinare i fogli di lavoro in ordine alfabetico / alfanumerico in Excel?

Normalmente è possibile ordinare o organizzare l'ordine delle schede del foglio di lavoro in Excel trascinando e rilasciando le schede del foglio sulla barra delle schede del foglio. Ma per farlo con più fogli di lavoro, potresti prendere in considerazione i seguenti modi complicati per ordinare rapidamente i fogli di lavoro in ordine alfabetico / alfanumerico in una grande cartella di lavoro.

Ordina i fogli di lavoro in ordine alfabetico / alfanumerico con codice VBA
Ordina i fogli di lavoro in ordine alfabetico / alfanumerico con Kutools per Excel


Ordina i fogli di lavoro in ordine alfabetico / alfanumerico con codice VBA

Esiste una macro per l'ordinamento dei fogli di lavoro in base all'alfa pubblicata nel centro di supporto Microsoft. Possiamo applicarlo con i seguenti passaggi:

1.  Tenere premuto il tasto ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

2.  Clicchi inserire > Modulie quindi incolla la seguente macro nel file Finestra del modulo.

VBA: ordina i fogli in ordine alfabetico / alfanumerico

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. premi il F5 chiave per eseguire questa macro. Nella seguente finestra di messaggio, fare clic su , tutti i fogli di lavoro verranno ordinati in ordine alfabetico crescente; e fare clic Non, tutti i fogli di lavoro verranno ordinati in ordine alfabetico decrescente.


Ordina i fogli di lavoro in ordine alfabetico / alfanumerico con Kutools per Excel

Se non hai familiarità con le macro o preferisci altri modi, puoi provare Kutools for Excel. Kutools for Excel's Ordina fogli lo strumento può ordinare facilmente tutti i fogli di lavoro.

Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.

1. Clic Kutools Plus > Foglio di lavoro > Ordina fogli. Vedi screenshot:

2. Nel Ordina fogli finestra di dialogo, selezionare un tipo di ordinamento necessario nel riquadro di destra, ad esempio tipo alfa, Ordinamento alfanumericoe quindi fare clic su OK pulsante. Vedi screenshot:

Quindi tutti i fogli di lavoro vengono ordinati in base al tipo di ordinamento specificato. Vedi screenshot:

doc-sort-sheet 6

Kutools for Excel's Ordina fogli lo strumento può riorganizzare rapidamente tutti i fogli di lavoro nella cartella di lavoro attiva. Supporta diversi tipi di ordinamento, incluso tipo alfa, Ordinamento alfanumerico, Ordinamento colore ed Invertire. Inoltre, puoi anche spostare su / giù i fogli di lavoro e ripristinare l'ordinamento.

  Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.


Demo: ordina tutti i fogli di lavoro in ordine alfabetico / alfanumerico


Articolo correlato:

Ordina le schede del foglio di lavoro per colore

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

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