Sortowanie arkuszy w książce

Opis

Jeśli liczba zakładek w Twojej książce zbliża się do kilkudziesięciu, prędzej czy później pojawi się chęć ich wdrożenia sortowanie arkuszy w książce , układając je w kolejności alfabetycznej. Standardowe narzędzia Excel nie pozwalają na to, więc napiszmy proste makro, które to zrobi.

VBA kod makra

Otwórz menu Usługa - Makro - Edytor Visual Basic (Tools - Macro - Visual Basic Editor) , wstaw moduł VBA (menu Insert - Module ) i skopiuj tam ten tekst:

Sub SortSheets()
  'moonexcel.com.ua
  Dim I As Integer, J As Integer

    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
    
    MsgBox " Zakładki zostały posortowane od A do Z "
End Sub

To makro można teraz uruchomić z menu Usługa - Makro - Makra (Tools - Macro - Macros) i szybko posortuje wszystkie arkusze w bieżącym skoroszycie.

Artykuły na ten temat:

• Połącz skoroszyty (CombineWorkbooks)
• Szybkie przechodzenie pomiędzy stronami książki