Как отсортировать листы по названию

Если нужно отсортировать листы по названию, этот макрос сделает это в алфавитном порядке. 

Макрокоманда перебирает листы в книге, сравнивая текущий лист с предыдущим. Если имя предыдущего листа больше текущего листа (в алфавитном порядке), макрокоманда перемещает текущий лист перед ним. 

Обратите внимание, что этот макрос делает сортировку только для текстовых данных, так что вы не можете получить результаты, которые вы ожидали при работе с числами на основе имен листов. Например, Лист 10 предшествует Лист 2, потому что программа не сравнивает значения чисел, а просто расставляет по алфавиту. 

1. Шаг 1 объявляет две целочисленные переменные. CurrentSheetIndex содержит номер индекса для текущей итерации листа, а переменная PrevSheetIndex содержит номер индекса для предыдущей итерации листа. 

2. На шаге 2 макрос начинает итерации счетчика для обеих переменных. Обратите внимание, что счетчик для PrevSheetIndex одно число за CurrentSheetIndex. После того, как счетчики установлены, мы начинаем цикл. 

3. В шаге 3, мы проверяем, является ли имя предыдущего листа больше, чем у текущего листа (в алфавитном порядке). На этом этапе, обратите внимание на использование функции UCase. Мы используем ее, чтобы получить оба названия в верхнем регистре. Это предотвращает ошибки из-за различия регистра. 

4. Шаг 4 выполняется, только если предыдущее имя листа больше, чем текущее имя листа. На этом этапе мы используем метод Move, чтобы переместить текущий лист перед предыдущим листом. 

5. На шаге 5 мы идем обратно к началу цикла. Каждый цикл проходит все листы от первого до последнего. После того, как все циклы были выполнены, макрос заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.