Przejdź do głównej zawartości

Jak sortować arkusze w porządku alfabetycznym / alfanumerycznym w programie Excel?

Zwykle można sortować lub porządkować karty arkuszy w programie Excel, przeciągając i upuszczając karty arkuszy na pasku kart arkusza. Ale aby zrobić to z wieloma arkuszami, możesz rozważyć następujące trudne sposoby szybkiego sortowania arkuszy w porządku alfabetycznym / alfanumerycznym w dużym skoroszycie.

Sortuj arkusze w kolejności alfabetycznej / alfanumerycznej z kodem VBA
Sortuj arkusze w kolejności alfabetycznej / alfanumerycznej za pomocą Kutools for Excel


Sortuj arkusze w kolejności alfabetycznej / alfanumerycznej z kodem VBA

Istnieje makro do sortowania arkuszy według wersji alfa opublikowane w Centrum pomocy Microsoft. Możemy go zastosować, wykonując następujące kroki:

1.  Przytrzymaj przycisk ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

2.  Kliknij wstawka > Moduł, a następnie wklej następujące makro w Okno modułu.

VBA: Sortuj arkusze w porządku alfabetycznym / alfanumerycznym

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. wciśnij F5 klucz do uruchomienia tego makra. W następnym oknie zachęty kliknij Tak, wszystkie arkusze zostaną posortowane w rosnącej kolejności alfabetycznej; i kliknij Nie, wszystkie arkusze zostaną posortowane malejąco w porządku alfabetycznym.


Sortuj arkusze w kolejności alfabetycznej / alfanumerycznej za pomocą Kutools for Excel

Jeśli nie znasz makr lub wolisz inne sposoby, możesz spróbować Kutools dla programu Excel. Kutools dla programu Excel's Sortuj arkusze narzędzie może łatwo sortować wszystkie arkusze.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Kliknij Kutools Plus > Ćwiczenie > Sortuj arkusze. Zobacz zrzut ekranu:

2, w Sortuj arkusze W oknie dialogowym wybierz jeden typ sortowania, którego potrzebujesz w prawym okienku, na przykład Sortowanie alfa, Sortowanie alfanumeryczne, a następnie kliknij przycisk OK przycisk. Zobacz zrzut ekranu:

Następnie wszystkie arkusze są sortowane na podstawie określonego typu sortowania. Zobacz zrzut ekranu:

arkusze-sortowania-doc6

Kutools dla programu Excel's Sortuj arkusze narzędzie może szybko zmienić kolejność wszystkich arkuszy w aktywnym skoroszycie. Obsługuje kilka typów sortowania, w tym Sortowanie alfa, Sortowanie alfanumeryczne, Sortowanie kolorów i Odwrócenie. Ponadto możesz także przesuwać arkusze w górę / w dół i resetować sortowanie.

  Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Demo: Sortuj wszystkie arkusze w porządku alfabetycznym / alfanumerycznym


Podobne artykuły:

Sortuj karty arkusza według koloru

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

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