Наступний макрос перебирає кожен аркуш у книзі та записує назву вкладки кожного аркуша послідовно до обраного вами аркуша. Це може стати в нагоді для швидкого переліку кожного аркуша в книзі з багатьма аркушами.
Перелічіть усі робочі аркуші в робочому зошиті
Щоб використовувати макрос, просто замініть слово Sheet1 (воно з’являється двічі) у коді на ім’я вкладки, де ви хочете отримати результати. Переконайтеся, що на вкладці виводу немає жодної важливої інформації, оскільки вона очищає їхні дані перед тим, як писати на неї.
| 123456789101112131415 | Додаткові таблиці ()Затемнити як робочий аркушDim x як ціле числоx = 1Аркуші ("Аркуш1"). Діапазон ("А: А"). ОчиститиДля кожного ws у робочих аркушахАркуші ("Аркуш1"). Клітинки (x, 1) = ws.Namex = x + 1Наступний wsEnd Sub |
