Gå til hovedindhold

Hvordan sorterer man regneark i alfabetisk / alfanumerisk rækkefølge i Excel?

Normalt kan du sortere eller arrangere rækkefølge for regnearkfaner i Excel ved at trække og slippe arkfaner på arkfanen. Men for at få dette gjort med flere regneark, kan du overveje følgende vanskelige måder til hurtigt at sortere regneark i alfabetisk / alfanumerisk rækkefølge i en stor projektmappe.

Sorter regneark i alfabetisk / alfanumerisk rækkefølge med VBA-kode
Sorter regneark i alfabetisk / alfanumerisk rækkefølge med Kutools til Excel


Sorter regneark i alfabetisk / alfanumerisk rækkefølge med VBA-kode

Der er en makro til sortering af regneark efter alpha, der er sendt i Microsoft Support Center. Vi kan anvende det med følgende trin:

1.  Hold nede i ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2.  Klik indsatte > Moduler, og indsæt derefter følgende makro i Modul vindue.

VBA: Sorter ark i alfabetisk / alfanumerisk rækkefølge

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. Tryk på F5 nøgle til at køre denne makro. Klik på i det følgende promptfelt Ja, alle regneark sorteres i stigende alfabetisk rækkefølge; og klik Ingen, alle regneark sorteres efter faldende alfabetisk rækkefølge.


Sorter regneark i alfabetisk / alfanumerisk rækkefølge med Kutools til Excel

Hvis du ikke er fortrolig med makroer eller foretrækker det på andre måder, kan du prøve Kutools til Excel. Kutools til Excel's Sorter ark værktøj kan nemt sortere alle regneark.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. Klik Kutools Plus > Arbejdsark > Sorter ark. Se skærmbillede:

2. I Sorter ark i dialogboksen skal du vælge en sorteringstype, som du har brug for i højre rude, f.eks Alfa sortering, Alfanumerisk sortering, og klik derefter på OK knap. Se skærmbillede:

Derefter sorteres alle regneark ud fra den specificerede sorteringstype. Se skærmbillede:

doc-sort-ark6

Kutools til Excel's Sorter ark værktøj kan hurtigt omarrangere alle regneark i den aktive projektmappe. Det understøtter flere sorteringstyper, herunder Alfa sortering, Alfanumerisk sortering, Farvesortering , Omvendt. Derudover kan du også flytte op / ned regneark og nulstille sorteringen.

  Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Demo: Sorter alle regneark i alfabetisk / alfanumerisk rækkefølge


Relateret artikel:

Sorter regnearkfaner efter farve

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

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