Если количество вкладок в книге приближается к нескольким десяткам, то рано или поздно возникнет желание произвести сортировку листов в книге, расположив их в алфавитном порядке. Стандартные средства Excel не позволяют этого сделать, поэтому давайте напишем простой макрос, который будет это делать.
Откройте меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor) , вставьте модуль VBA и скопируйте туда этот текст:
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), и он быстро отсортирует все листы в текущей книге.