With følgende VBA-kode arbeidsbok?, Kan du raskt få størrelsen på hvert regneark i arbeidsboken. Vennligst gjør som dette:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode: Sjekk størrelsen på hvert regneark i en arbeidsbok. ≪ /p >
Sub WorksheetSizes () 'Update 20140526Dim xWs Som WorksheetDim RNG Som RangeDim xOutWs Som WorksheetDim xOutFile Som StringDim xOutName Som StringxOutName = "KutoolsforExcel" xOutFile = ThisWorkbook.Path & "\\ TempWb.xls" On Error Resume NextApplication.DisplayAlerts = FalseErr = 0Set xOutWs = Application.Worksheets (xOutName) Hvis Err = 0 Then xOutWs.Delete Err = 0End IfWith Application.ActiveWorkbook.Worksheets.Add (Før: = Application.Worksheets (1)) .name = xOutName .Range ("A1"). Resize (1, 2) .Value = Array ("Name regneark", "Size") End WithSet xOutWs = Application.Worksheets (xOutName) Application.ScreenUpdating = FalsexIndex = 1 For hver xWs I Application.ActiveWorkbook.Worksheets Hvis xWs.Name < > xOutName Så xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close Savechanges:. = False Set RNG = xOutWs.Range ("A1") Offset (xIndex, 0) Rng.Resize (1, 2) .Value = Array (xWs.Name, VBA.FileLen (xOutFile)) Kill xOutFile xIndex = xIndex + 1 End IfNextApplication.ScreenUpdating = TrueApplication.Application.DisplayAlerts = TrueEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og et nytt regneark heter KutoolsforExcel vil bli satt inn i gjeldende arbeidsbok som inneholder hvert regneark navn og filstørrelse, og enheten er Bit. Se skjermbilde:

Kontroller størrelsen på hvert regneark med Kutools for Excel
Hvis du har Kutools for Excel, med sin Split arbeidsbok verktøyet, kan du dele hele arbeidsboken i separate filer, og deretter gå til bestemt mappe for å sjekke størrelsen på hver fil.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Få den nå
Etter installering Kutools for Excel, gjøre med følgende:.
1. Åpne arbeidsboken du ønsker å sjekke størrelsen på sin hvert regneark, og klikk Enterprise > Arbeidsbok Verktøy > Split arbeidsbok, se skjermbilde:
to. I dialogboksen Split arbeidsbok, sjekk alle regnearkene og klikk Split-knappen, og angi en mappe for å sette den nye arbeidsboken filer. Se skjermbilder:
3. Og deretter hvert regneark fra din nåværende arbeidsboken blir lagret som skilles Excel-fil, kan du gå til din bestemt mappe for å sjekke størrelsen på hver arbeidsbok
å vite mer om dette. Split arbeidsbok funksjonen. Anmeldelser

Previous:Slik flytter annenhver rad til kolonne i Excel

Next Page:Hvordan sjekke om et ark finnes i en arbeidsbok?