Ši makrokomanda perkelia kiekvieną darbaknygės lapą ir įrašo kiekvieno lapo skirtuko pavadinimą iš eilės į pasirinktą lapą. Tai gali būti naudinga greitam kiekvieno darbaknygės lapo, kuriame yra daug lapų, sąrašui.
Išvardykite visus darbaknygės darbalapius
Norėdami naudoti makrokomandą, tiesiog pakeiskite žodį „Sheet1“ (jis rodomas du kartus) į kodą skirtuko pavadinimu, kuriame norite gauti rezultatus. Įsitikinkite, kad išvesties skirtuke nėra jokios svarbios informacijos, nes prieš rašant į jį, duomenys išvalomi.
| 123456789101112131415 | Antriniai sąrašai ()Dim ws kaip darbalapisDim x As Integerx = 1Skaičiuoklės („Sheet1“). Diapazonas („A: A“). AiškuUž kiekvieną ws darbalapiuoseLakštai („Sheet1“). Ląstelės (x, 1) = ws.Namex = x + 1Kitas wsPabaiga Sub |
