Сортировка листов в книге

Описание

Если количество вкладок в книге приближается к нескольким десяткам, то рано или поздно возникнет желание осуществить сортировка листов в книге , разместив его в алфавитном порядке. Стандартные средства Excel не позволяют этого сделать, поэтому давайте напишем простой макрос, который будет это делать.

VBA код для макроса

Откройте меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor) , вставьте модуль VBA (меню Insert - Module ) и скопируйте туда этот текст:

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 "Вкладки були посортовані від A до Я"
End Sub

Теперь этот макрос можно запустить через меню Сервис - Макрос - Макросы (Tools - Macro - Macros) и он быстро отсортирует все листы в текущей книге.

Статьи по теме: