2 raske måter å få datastørrelsen til hvert regneark i en Excel-arbeidsbok

Hvis du raskt vil få datastørrelsen til hvert regneark i en Excel-arbeidsbok, kan du se denne artikkelen. Her vil vi dele 2 nyttige metoder med deg.

Noen ganger, når du har å gjøre med en Excel-arbeidsbok som består av en stor mengde regneark, vil du kanskje få datastørrelsen til hvert regneark. Det er imidlertid ikke en innebygd funksjon for dette kravet. Så du må bruke noen løsninger, for eksempel følgende metode 1. Eller du kan bruke den mye smartere metode 2 for å få alle regnearks datastørrelser i bulk.

Metode 1: Få regnearkdatastørrelse én etter én manuelt

  1. Først åpner du den spesifikke Excel-arbeidsboken.
  2. Deretter kopierer du innholdet i et Excel-regneark.Kopier arkinnhold
  3. Deretter oppretter du en ny arbeidsbok og limer inn det kopierte regnearket i ark 1.Lim inn kopiert regneark
  4. Senere lagrer du den nye arbeidsboken i en Windows-mappe.Lagre ny arbeidsbok
  5. Til slutt kan du sjekke den nye arbeidsbokens datastørrelse, lik regnearkets datastørrelse, i Windows Utforsker, som vist i følgende skjermbilde.Få datastørrelse i Windows Utforsker
  6. Nå kan du bruke denne måten til å få datastørrelsene til andre regneark én etter én.

Metode 2: Batch Hent datastørrelsene for alle regneark via VBA

  1. Til å begynne med åpner du Excel VBA-editoren i henhold til "Hvordan kjøre VBA-kode i Excel".
  2. Deretter legger du følgende kode inn i et prosjekt eller en modul.
Sub GetEachWorksheetSize() Dim strTargetSheetName As String Dim strTempWorkbook As String Dim objTargetWorksheet As Worksheet Dim objWorksheet As Worksheet Dim objRange As Range Dim i As Long Dim nLastEmptyRow As Integer strTargetSheetName = "Arkstørrelser" strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls" Med ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)) .Name = strTargetSheetName .Cells(1, 1) = "Ark" .Cells(1, 1).Font.Size = 14 .Cells(1, 1).Font.Bold = True .Cells(1, 2) = "Size" . Cells(1, 2). Font.Size = 14 .Cells(1, 2).Font.Fet = True End With Set objTargetWorksheet = Application.Worksheets(strTargetSheetName) For hvert objWorksheet In Application.ActiveWorkbook.Worksheets If objWorksheet.Name <> strTargetSheetName Deretter objWorksheet.Copy Application.ActiveWorkbook.SaveAs strTempWorkbook Application.ActiveWorkbook.Close SaveChanges:=False nLastEmptyRow = objTargetWorksheet.Range("A" & objTargetWorksheet.Rows.Count).End(xlUp).Row + 1 With objTargetWorksheet .Cells(nLastEmptyRow, 1) = objWorksheet.Name .Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook) End With Kill strTempWorkbook End If Next End Sub

VBA-kode - Få datastørrelsen til hvert regneark i en Excel-arbeidsbok

  1. Etter det, trykk "F5" for å kjøre denne makroen med en gang.
  2. Til slutt, etter at makroen er ferdig, tilbake til arbeidsboken.
  3. Du vil se et nytt regneark helt i begynnelsen, som inneholder størrelsen på hvert regneark, som følgende bilde.Nytt ark med størrelsesinformasjon

Sammenligning

  Fordeler Ulemper
Metode 1 Enkel å betjene For plagsomt hvis det er for mange regneark i gjeldende arbeidsbok
Metode 2 Enkelt og praktisk uansett hvor mange regneark som finnes i arbeidsboken Kanskje den ovennevnte VBA-koden er litt uforståelig for nybegynnere

Løs irriterende PST-problemer

Brukere kan støte på alle slags forstyrrende problemer i MS Excel, alt fra uventet nedleggelse eller restart til alvorlig xlsx korrupsjon. Utvilsomt er most knotete problem er skadet Excel-fil ved at det ikke kan løses enkelt. Det krever at du bruker et eksternt Excel-fixverktøy, som DataNumen Excel Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert korrupt SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

12 svar på "2 raske måter å få datastørrelsen til hvert regneark i en Excel-arbeidsbok"

  1. Hei, jeg føler at jeg la merke til at du besøkte siden min, så jeg kom hit for å returnere foretrekkeren?. Jeg prøver å finne problemer for å forbedre nettstedet mitt! Jeg antar at det er tilstrekkelig til å bruke noen av konseptene dine!

  2. vises feilmeldingen 1004: kan ikke kopiere regnearket
    hvis excel-filen min har totalt 10 regneark og synlig regneark er tre, noen feil??
    vennligst hjelp til å forbedre kodingen.

  3. Fungerte perfekt etter at jeg viste alle fanene. Hva er lagringsenhetens størrelse her? Forutsatt at det er Bits, men vil være sikker. Takk!

  4. .Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook)

    Fungerer ikke for meg. Feil i linjen over i koden.

  5. Hva betyr egentlig tallene som følger av denne metode 2?
    Jeg har to excel-filer .xlsx lagret med data fra en mal. Har brukt samme mal de siste 2 årene. Samme antall arbeidsark (14). Mindre filarkstørrelser summerer seg til 11610591 og er 6681 KB som rapportert av Windows. Større filarkstørrelser summerer til 11717397 og er 25471 KB som rapportert av Windows.
    Denne større filstørrelsen er bare starhar skjedd de siste 3 dagene.

Legg igjen en kommentar

Din e-postadresse vil ikke bli publisert. Obligatoriske felt er merket *