Jos sinulla on Excel-työkirja, jossa on satoja laskentataulukoita, ja nyt haluat saada luettelon kaikista laskentataulukoiden nimistä, voit viitata tähän artikkeliin. Täällä jaamme 3 yksinkertaista menetelmää kanssasi.
Joskus saatat joutua luomaan luettelon kaikista laskentataulukoiden nimistä Excel-työkirjassa. Jos taulukoita on vain vähän, voit käyttää tapaa 1 luetteloiden arkkien nimet manuaalisesti. Jos kuitenkin Excel-työkirja sisältää suuren määrän laskentataulukoita, sinun on parempi käyttää kahta jälkimmäistä menetelmää, jotka ovat paljon tehokkaampia.
Tapa 1: Hae luettelo manuaalisesti
- Avaa ensin tietty Excel-työkirja.
- Kaksoisnapsauta sitten arkin nimeä alareunassa olevassa luettelossa.
- Kopioi sitten nimi painamalla ”Ctrl + C”.
- Luo myöhemmin tekstitiedosto.
- Liitä sitten taulukon nimi painamalla ”Ctrl + V”.
- Tällä tavalla voit kopioida jokaisen arkin nimen tekstitiedostoon yksitellen.
Tapa 2: Luettelo kaavalla
- Käänny alusta alkaen "Kaavat" -välilehdelle ja napsauta "Nimihallinta" -painiketta.
- Napsauta seuraavaksi ponnahdusikkunassa "Uusi".
- Kirjoita seuraavassa valintaikkunassa ”ListSheets” Nimi-kenttään.
- Syötä myöhemmin Viittaukset-kenttään seuraava kaava:
= VAIHDA (TYÖKIRJA (1), 1, LÖYDÄ ("]", TYÖKIRJA (1)), "")
- Sen jälkeen napsauta “OK” ja “Sulje” tämän kaavan tallentamiseksi.
- Luo seuraavaksi uusi laskentataulukko nykyiseen työkirjaan.
- Syötä sitten ”1” soluun A1 ja ”2” soluun A2.
- Valitse sitten kaksi solua ja vedä ne alas syöttääksesi sarakkeeseen A 2,3,4,5 jne.
- Lisää myöhemmin seuraava kaava soluun B1.
= HAKEMISTO (ListSheet, A1)
- Ensimmäisen arkin nimi syötetään kerralla soluun B1.
- Lopuksi, kopioi kaava alaspäin, kunnes näet "#REF!" virhe.
Tapa 3: Luettelo Excel VBA: n kautta
- Sillä kutentart, laukaise Excel VBA -editoriKuinka suorittaa VBA-koodi Excelissä".
- Laita sitten seuraava koodi moduuliin tai projektiin.
AlalistaSheetNamesInNewWorkbook () Dim objNewWorkbook As Workbook Dim objNewWorksheet As Worksheet Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets (1) For i = 1 ToWorkbook.Sheets.Count 1Custom objeweworks i objNewWorksheet.Cells (i, 2) = ThisWorkbook.Sheets (i) .Nimi Seuraava i with objNewWorksheet .Rows (1) .Lisää .Cells (1, 1) = "INDEX" .Cells (1, 1) .Font. Lihavoitu = True .Cells (1, 2) = "NAME" .Cells (1, 2) .Font.Bold = True .Columns ("A: B"). AutoFit End With End Sub
- Suorita tämä makro painamalla myöhemmin ”F5”.
- Samanaikaisesti tulee näkyviin uusi Excel-työkirja, jossa näet luettelon lähteen Excel-työkirjan laskentataulukoiden nimistä.
Vertailu
| edut | Haitat | |
| Menetelmä 1 | Helppo käyttää | Liian hankala, jos laskentataulukoita on paljon |
| Menetelmä 2 | Helppo käyttää | Vaatii, että kirjoitat hakemiston ensin |
| Menetelmä 3 | Nopea ja kätevä | Käyttäjien tulisi varoa ulkoisia haitallisia makroja |
| Helppo jopa VBA-aloittelijoille |
Excel vioittuu
MS Excelin tiedetään kaatuvan ajoittain, mikä vahingoittaa nykyisiä tiedostoja tallennettaessa. Siksi on erittäin suositeltavaa saada käsiinsä ulkoinen voimakas Excel-korjaus työkalu, kuten DataNumen Outlook Repair. Se johtuu siitä, että kyseisen itsensä palauttamisen ominaisuuden epäonnistuu usein.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com