Hoppa till huvudinnehåll

Hur räknar jag antalet ark i en arbetsbok?

Författare: Xiaoyang Senast ändrad: 2022-01-20

Har du någonsin funderat på hur man räknar antalet kalkylblad i en arbetsbok? Att räkna dem en efter en är ett tråkigt jobb, om det finns många kalkylblad. Det finns faktiskt ingen rak formel för att beräkna antalet kalkylblad. Men här kan jag presentera några användbara och praktiska knep för att hantera detta problem.

Räkna antalet ark i en arbetsbok ARK-funktion

Räkna antalet ark i en arbetsbok med kommandot Definiera namn

Räkna antalet ark i en arbetsbok med VBA-kod

Visa antalet ark i en arbetsbok i navigeringsfönstret bra idé3

Räkna antalet ark i en arbetsbok genom att skapa en lista med ark bra idé3


pil blå höger bubblaRäkna antalet ark i en arbetsbok ARK-funktion

Om din Excel-version är 2013 eller senare kan du använda ARK-funktionen för att få det totala antalet ark i den aktuella arbetsboken.

Välj en tom cell och skriv =ARK() in i den, tryck på Enter för att få antalet ark.


pil blå höger bubblaRäkna antalet ark i en arbetsbok med kommandot Definiera namn

I Excel kan du först använda en formel i funktionen Definiera namn och sedan räkna antalet kalkylblad.

1. Starta din arbetsbok där du vill räkna antalet kalkylblad.

2. Klicka Formel > Definiera namn, se skärmdump:

doc-count-antal-ark1

3. Och i Nytt namn dialogrutan, ange ett namn i Namn textrutan och ange sedan denna formel = GET.WORKBOOK (1) & T (NU ()) till Refererar till textruta, se skärmdump:

doc-count-antal-ark1

4. Klicka sedan OK för att stänga den här dialogrutan och återgå till kalkylbladet, skriv sedan denna formel = COUNTA (INDEX (CountSheets, 0))(CountSheets i den här formeln är namnet du definierade i steg 3, du kan ändra det efter behov.) till en tom cell, se skärmdump:

doc-count-antal-ark1

5. Och tryck ange nyckel får du numret på dina kalkylblad i den aktuella arbetsboken.

doc-count-antal-ark1


pil blå höger bubblaRäkna antalet ark i en arbetsbok med VBA-kod

Om du tycker att ovanstående formler är lite svåra att komma ihåg, här är en enkel VBA-kod som också kan hjälpa dig.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Räkna antalet ark i en arbetsbok

Public Sub CountWorkSheets()
'Update 20140326
MsgBox "The total number sheets of this workbook: " & Application.Sheets.Count
End Sub

3. Tryck sedan på F5 nyckel för att utföra den här koden, och en snabbruta kommer att dyka upp för att berätta det totala antalet kalkylblad enligt följande skärmdump:

doc-count-antal-ark1


pil blå höger bubbla Visa antalet ark i en arbetsbok med navigeringsfönstret

Om du har Kutools för Excel installerad kan du uppenbarligen se antalet ark i en arbetsbok med Navigering rutan.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

Efter gratis installation Kutools för Excel, gör så här:

1. klick Kutools > Navigering för att aktivera Navigeringsfönstret till vänster om kalkylbladet. Se skärmdump:
dok navigering 1

2. Klicka sedan Arbetsbok och ark fliken, och sedan kan du visa det totala antalet ark i den aktiva arbetsboken visas längst ner i rutan. Du kan också se antalet synliga och dolda ark i arbetsboken. Se skärmdump:
dok navigering 2

Med Navigering i rutan kan du google mellan ark, visa alla kolumnrubriker, intervallnamn och lägga till automatiska texter och så vidare. Klicka här för mer information.

pil blå höger bubbla Navigationsfönster - Lista och räkna alla ark


pil blå höger bubbla Räkna antalet ark i en arbetsbok genom att skapa en lista med ark

Om du tänker på att ovanstående metoder inte är praktiska kan jag introducera en rundväg för dig.

Om du har installerat Kutools för Excel, kan du skapa en namnlista över alla kalkylblad och sedan välja dem att räkna i statusfältet.

Efter gratis installation Kutools för Excel, gör så här:

1. Aktivera den arbetsbok du vill räkna dess kalkylblad och klicka på Kutools Plus > Arbetsblad > Skapa lista över arknamn. Se skärmdump:
dok navigering 1

2. Kontrollera sedan i poppdialogen Innehåller en lista med hyperlänkar alternativ, och för att enkelt välja arknamn kan du visa arkindex i 3 eller 4 kolumner. Se skärmdump:
arkräkneark 2

3. klick Ok, sedan skapas ett kalkylblad med alla arkens namn före alla ark, och du behöver bara välja dessa arknamn och visa räkningsresultatet vid Status bar.
doc kutools skapar lista över arknamn 3

Egentligen är dessa arknamn länkbara, du kan klicka på ett arknamn och sedan länka snabbt till det relativa arket. Och med Skapa lista över arknamn, kan du skapa länkbara knappar för arknamn med check Innehåller knappar och makron alternativet. Klicka här om du vill veta mer om Skapa lista över arknamn.

pil blå höger bubbla Skapa lista med arkenamn



Kutools för Excel: 300 + funktioner du måste ha i Excel, 30-dagars gratis testperiod härifrån

godNavigationsfönster - Hitta och ersätt

Kutools för Excelär avancerad Sök och ersätt funktion, kan hjälpa dig att hitta och
ersätt ett värde över flera ark och arbetsböcker.
doc hitta och ersätt

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (16)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks!
=Sheets() worked just fine!
Before I thought I must use VBA.
Saved a lot of trouble!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Save the entire workbook in single pdf then u can find easily count the total no of pages.
This comment was minimized by the moderator on the site
I upgraded to Office 365 and now=COUNTA(INDEX(CountSheets,0)) always returns 1. Is there a fix for Excel 365 to get this to work?Thanks,
Jim...
This comment was minimized by the moderator on the site
=SHEETS() in Excel 365 returns 0.
=SHEETS(reference) - so what goes in "reference"?
This comment was minimized by the moderator on the site
Hi, gerland, in my office 365, the defined name method work as well. You can try the SHEETS function, I have updated it as the first one method in this tutorial.
This comment was minimized by the moderator on the site
=Sheets()  gives the answer. 
This comment was minimized by the moderator on the site
=sheets() works great
This comment was minimized by the moderator on the site
It Works only 2010 & Higher Version of Excel. Not Working In Excel 2007
This comment was minimized by the moderator on the site
Tried it on my 2007 version.
=COUNTA(countsheets)
works for me.
This comment was minimized by the moderator on the site
I like it. Thanks too much
This comment was minimized by the moderator on the site
Thank you so much for posting these directions!! I have a workbook with over 700 sheets and never knew there was a way for excel to count them for me. I used the first method and it worked absolutely perfectly!!
This comment was minimized by the moderator on the site
Great! Saved so much of my time!!
This comment was minimized by the moderator on the site
Hi, Thanks! This worked for me great in excel 2013 to count the number of sheets. Crazy that a formula is required to do this.
This comment was minimized by the moderator on the site
Sorry Freddy. Your first method using Formula > Define Name doesn't work. You got a typo somewhere or something
This comment was minimized by the moderator on the site
[quote]Sorry Freddy. Your first method using Formula > Define Name doesn't work. You got a typo somewhere or somethingBy smith[/quote] yes, instead of =COUNTA(INDEX(CountSheets,0)) You should write =COUNTA(INDEX(CountSheets;0))
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations