Hvis du har en Excel-arbeidsbok som har hundrevis av regneark, og nå vil du få en liste over alle regnearknavnene, kan du referere til denne artikkelen. Her vil vi dele 3 enkle metoder med deg.
Noen ganger kan du bli bedt om å generere en liste over alle regnearknavnene i en Excel-arbeidsbok. Hvis det bare er noen få ark, kan du bare bruke metode 1 for å liste arknavnene manuelt. Men i tilfelle Excel-arbeidsboken inneholder et stort antall regneark, bør du bruke de to sistnevnte metodene, som er mye mer effektive.
Metode 1: Få liste manuelt
- Først åpner du den spesifikke Excel-arbeidsboken.
- Dobbeltklikk deretter på et arks navn i arklisten nederst.
- Trykk deretter "Ctrl + C" for å kopiere navnet.
- Lag en tekstfil senere.
- Trykk deretter "Ctrl + V" for å lime inn arknavnet.
- Nå, på denne måten, kan du kopiere hvert arks navn til tekstfilen en etter en.
Metode 2: List med formel
- I begynnelsen, gå til "Formler"-fanen og klikk på "Navnebehandling"-knappen.
- Klikk deretter "Ny" i popup-vinduet.
- I den påfølgende dialogboksen skriver du inn "ListSheets" i "Name"-feltet.
- Senere, i "Refererer til"-feltet, skriv inn følgende formel:
=REPLACE(GET.ARBEIDSBOK(1),1,FINN("]",GET.ARBEIDSBOK(1)),"")
- Klikk deretter "OK" og "Lukk" for å lagre denne formelen.
- Deretter oppretter du et nytt regneark i gjeldende arbeidsbok.
- Skriv deretter inn "1" i celle A1 og "2" i celle A2.
- Etterpå velger du de to cellene og drar dem ned for å skrive inn 2,3,4,5 osv. i kolonne A.
- Senere setter du følgende formel i celle B1.
=INDEKS(Listeark,A1)
- Med en gang vil det første arknavnet bli lagt inn i celle B1.
- Til slutt, bare kopier formelen ned til du ser "#REF!" feil.
Metode 3: Liste via Excel VBA
- For somtart, utløs Excel VBA-editor i henhold til "Hvordan kjøre VBA-kode i Excel".
- Deretter legger du følgende kode inn i en modul eller et prosjekt.
Sub ListSheetNamesInNewWorkbook() Dim objNewWorkbook As Workbook Dim objNewWorksheet As Worksheet Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets(1) For i = 1 To ThisWork.Counterbook.SellWorksi i objNewWorksheet.Cells(i, 1) = ThisWorkbook.Sheets(i).Navn Neste i Med objNewWorksheet .Rows(2).Sett inn .Cells(1, 1) = "INDEX" .Cells(1, 1).Font. Fet = True .Cells(1, 1) = "NAME" .Cells(2, 1).Fet.Fet = True .Columns("A:B").Autotilpass slutt med sluttunder
- Senere, trykk "F5" for å kjøre denne makroen akkurat nå.
- Med en gang vil en ny Excel-arbeidsbok dukke opp, der du kan se listen over regnearknavn for kilden til Excel-arbeidsboken.
Sammenligning
| Fordeler | Ulemper | |
| Metode 1 | Enkel å betjene | For plagsomt hvis det er mange arbeidsark |
| Metode 2 | Enkel å betjene | Krever at du skriver inn indeksen først |
| Metode 3 | Rask og praktisk | Brukere bør passe seg for de eksterne skadelige makroene |
| Enkelt selv for VBA-nybegynnere |
Excel blir ødelagt
MS Excel er kjent for å krasje fra tid til annen, og dermed skade gjeldende filer ved lagring. Derfor er det sterkt anbefalt å få tak i en ekstern kraftig Excel reparasjon verktøy, for eksempel DataNumen Outlook Repair. Det er fordi den selvgjenopprettingsfunksjonen i Excel har vist seg å mislykkes ofte.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql fikse og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med