Как создать список всех листов в активной книге с помощью макроса VBA
Хотите создать таблицу всех листов в активной книге? Используйте следующий макрос:
Подложки ShowTablesheets ()
Тусклый ряд по всей длине
Тусклый лист как рабочий лист
Уменьшить размер нового листа как рабочего листа
Установите Neublatt = ActiveWorkbook.Worksheets.Add
Ряд = 1
Для каждого листа в ActiveWorkbook.
Если Sheet.Name New Sheet.Name Then
Новый лист.Cells (row, 1) = sheet.name
Строка = строка + 1
Конец, если
Следующий лист
Конец подписки
Макрос создает новый рабочий лист в активной книге, в котором сохраняются имена всех рабочих листов. Из списка исключается только новый обзорный лист. На следующем рисунке показано, как может выглядеть результат:
Чтобы ввести макрос, откройте редактор VBA в Excel, используя комбинацию клавиш ALT F11. В этом редакторе выберите команду ВСТАВИТЬ - МОДУЛЬ и введите макрос. Вы запускаете макрос из Excel, используя комбинацию клавиш ALT F8.
