Kui teil on Exceli töövihik, milles on sadu töölehti, ja nüüd soovite saada kõigi töölehtede nimede loendit, võite vaadata seda artiklit. Siin jagame teiega 3 lihtsat meetodit.
Mõnikord peate võib-olla looma Exceli töövihikus kõigi töölehtede nimede loendi. Kui lehti on vähe, saate lehtede nimede käsitsi loetlemiseks kasutada 1. meetodit. Kui aga Exceli töövihik sisaldab suurel hulgal töölehti, on parem kasutada kahte viimast meetodit, mis on palju tõhusamad.
1. meetod: hankige loend käsitsi
- Esiteks avage konkreetne Exceli töövihik.
- Seejärel topeltklõpsake lehe nime lehe loendis allosas.
- Järgmisena vajutage nime kopeerimiseks klahve „Ctrl + C”.
- Hiljem looge tekstifail.
- Seejärel vajutage lehe nime kleepimiseks klahvikombinatsiooni „Ctrl + V”.
- Nüüd saate sel viisil iga lehe nime ükshaaval tekstifaili kopeerida.
2. meetod: loend koos valemiga
- Alguses minge vahekaardile "Valemid" ja klõpsake nuppu "Nimehaldur".
- Järgmisena klõpsake hüpikaknas nuppu "Uus".
- Järgmises dialoogiboksis sisestage väljale "Nimi" "ListSheets".
- Hiljem sisestage väljale „Viitab” järgmine valem:
=ASENDA(HANKI.TÖÖRAAMAT(1),1,LEIA("]",HANKI.TÖÖRAAMAT(1)),"")
- Pärast seda klõpsake selle valemi salvestamiseks "OK" ja "Sule".
- Järgmisena looge praeguses töövihikus uus tööleht.
- Seejärel sisestage lahtrisse A1 “1” ja lahtrisse A2 “2”.
- Seejärel valige kaks lahtrit ja lohistage need alla, et sisestada veerus A 2,3,4,5 jne.
- Hiljem sisestage lahtrisse B1 järgmine valem.
=INDEKS(loendilehed,A1)
- Lahtrisse B1 sisestatakse kohe esimese lehe nimi.
- Lõpuks kopeerige lihtsalt valem alla, kuni näete "#REF!" viga.
3. meetod: koostage loend Excel VBA kaudu
- Sest nagutart, käivitage Exceli VBA redaktor vastavalt "Kuidas Excelis VBA koodi käivitada".
- Seejärel sisestage järgmine kood moodulisse või projekti.
Sub ListSheetNamesInNewWorkbook() Dim objNewWorkbook As Workbook Dim ObjNewWorksheet as Worksheet Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets = ObjNewWorkbook.Sheets = CounterWork.kks1 For ThisW. Lahtrid(i, 1) = i objNewWorksheet.Cells(i, 1) = ThisWorkbook.Sheets(i).Nimi Järgmine i Koos objUustöölehega .Read(2).Insert .Cells(1, 1) = "INDEKS" .Cells(1, 1).Font. Paks = Tõene .Cells(1, 1) = "NAME" .Cells(2, 1).Font.Bold = Tõene .Veerud("A:B"). Automaatne sobitamine End alamlõpuga
- Hiljem vajutage selle makro käivitamiseks kohe nuppu F5.
- Korraga kuvatakse uus Exceli töövihik, milles näete Exceli lähtetöövihiku töölehtede nimede loendit.
võrdlus
| Eelised | Puudused | |
| Meetod 1 | Lihtne kasutada | Liiga tülikas, kui töölehti on palju |
| Meetod 2 | Lihtne kasutada | Nõuab kõigepealt indeksi tippimist |
| Meetod 3 | Kiire ja mugav | Kasutajad peaksid väliste pahatahtlike makrode eest ettevaatlikud olema |
| Lihtne isegi VBA algajatele |
Excel saab rikutud
On teada, et MS Excel jookseb aeg-ajalt kokku, kahjustades sellega salvestamisel praeguseid faile. Seetõttu on tungivalt soovitatav hankida väline võimas Exceli remont tööriist, näiteks DataNumen Outlook Repair. Selle põhjuseks on asjaolu, et see Exceli enesetaastefunktsioon ebaõnnestub sageli.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom