Вот как расположить таблицы в алфавитном порядке
Сортировка данных в списках по алфавиту - не проблема. Но как это сделать, если вы хотите расположить рабочие листы в алфавитном порядке в соответствии с их именами?
На следующем рисунке показан регистр листов с рядом листов. Их следует отсортировать в алфавитном порядке, чтобы их было легче найти.
3
Имея несколько листов, вы можете надежно выполнять работу вручную. При использовании большого количества листов это быстро становится трудным, требует много времени и сбивает с толку. Следующий макрос поможет вам в дальнейшем:
Sub SortBlaetter ()
Dim Zaehler1 как целое, Zaehler2 как целое
Тусклое имя как строка
Name = ActiveSheet.Name
Для Zaehler1 = 1 To Worksheets.Count
Для Zaehler2 = Zaehler1 To Worksheets.Count
Если UCase (Worksheets (Counter2) .Name) <UCase (Worksheets (Counter1) .Name), то
Рабочие листы (Zaehler2) .Переместить до: = Рабочие листы (Zaehler1)
Конец, если
Следующий counter2, counter1
Рабочие листы (Имя). Активировать
Конец подписки
Макрос сортирует листы в активной книге в алфавитном порядке по возрастанию. На следующем рисунке показано, как выглядит образец книги после запуска макроса:
Совет: Если вы хотите узнать, как вводить и запускать макросы в Excel, вы найдете здесь краткое описание: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
