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
- Først åpner du den spesifikke Excel-arbeidsboken.
- Deretter kopierer du innholdet i et Excel-regneark.
- Deretter oppretter du en ny arbeidsbok og limer inn det kopierte regnearket i ark 1.
- Senere lagrer du den nye arbeidsboken i en Windows-mappe.
- Til slutt kan du sjekke den nye arbeidsbokens datastørrelse, lik regnearkets datastørrelse, i Windows Utforsker, som vist i følgende skjermbilde.
- 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
- Til å begynne med åpner du Excel VBA-editoren i henhold til "Hvordan kjøre VBA-kode i Excel".
- 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
- Etter det, trykk "F5" for å kjøre denne makroen med en gang.
- Til slutt, etter at makroen er ferdig, tilbake til arbeidsboken.
- Du vil se et nytt regneark helt i begynnelsen, som inneholder størrelsen på hvert regneark, som følgende bilde.
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