Макрос для сортировки листов в Excel

https://vm.tiktok.com/ZSEu4qhL/

Откройте редактор Visual Basic с помощью сочетания клавиш ALT+F11, вставьте новый модуль (меню Insert - Module) и скопируйте туда код этого макроса:

Sub SortSheets()

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

End Sub

Теперь этот макрос можно запустить, нажав сочетание клавиш ALT+F8 и выбрав команду Выполнить (Run) он быстро отсортирует все листы в текущей книге по возрастанию.