Следният макрос преминава през всеки лист в работна книга и записва последователно името на раздела на всеки лист в лист, който изберете. Това може да бъде полезно за бърз списък на всеки лист в работна книга с много листове.
Избройте всички работни листове в работна книга
За да използвате макроса, просто заменете думата Sheet1 (тя се появява два пъти) в кода с името на раздела, където искате резултатите. Уверете се, че в раздела за извеждане няма важна информация, защото тя изчиства данните им, преди да им пише.
| 123456789101112131415 | Подсписки Листове ()Затъмнете като работен листDim x като цяло числоx = 1Листове ("Sheet1"). Диапазон ("A: A"). ИзчистетеЗа всеки ws в работни листовеЛистове ("Sheet1"). Клетки (x, 1) = ws.Namex = x + 1Следващата wsEnd Sub |
