Следующий макрос просматривает каждый лист в книге и последовательно записывает имя вкладки каждого листа на выбранный вами лист. Это может быть удобно для быстрого списка всех листов в книге с большим количеством листов.
Перечислить все рабочие листы в рабочей тетради
Чтобы использовать макрос, просто замените слово Sheet1 (оно появляется дважды) в коде именем вкладки, на котором вы хотите получить результаты. Убедитесь, что на вкладке вывода нет важной информации, потому что она очищает данные перед записью в нее.
| 123456789101112131415 | Sub ListSheets ()Dim ws как рабочий листDim x As Integerх = 1Листы ("Лист1"). Диапазон ("A: A"). ОчиститьДля каждого ws в листахЛисты ("Лист1"). Ячейки (x, 1) = ws.Nameх = х + 1Следующий wsКонец подписки |
