Hur kontrollerar jag storleken på varje arbetsblad i arbetsboken?
Om du antar att du har en stor arbetsbok som innehåller flera kalkylblad, och nu vill du ta reda på storleken på varje kalkylblad för att bestämma vilket ark som ska minskas. Finns det några snabba metoder för att hantera denna uppgift?
Kontrollera storleken på varje kalkylblad med VBA-kod
Kontrollera storleken på varje kalkylblad med Kutools för Excel
Kontrollera storleken på varje kalkylblad med VBA-kod
Med följande VBA-kod kan du snabbt få storleken på varje kalkylblad i din arbetsbok. Gör så här:
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: Kontrollera storleken på varje kalkylblad i en arbetsbok </ p>
Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
xOutWs.Delete
Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
.Name = xOutName
.Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xOutName Then
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 If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub
3. Tryck sedan på F5 nyckel för att köra den här koden och ett nytt kalkylblad med namnet KutoolsforExcel kommer att införas i den aktuella arbetsboken som innehåller varje kalkylbladsnamn och filstorlek, och enheten är Bit. Se skärmdump:
Kontrollera storleken på varje kalkylblad med Kutools för Excel
Om du har Kutools för Excel, med dess Dela arbetsbok verktyget kan du dela upp hela arbetsboken i separata filer och sedan gå till den specifika mappen för att kontrollera storleken på varje fil.
Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu.
När du har installerat Kutools för Excel gör du med följande steg:
1. Öppna arbetsboken du vill kontrollera storleken på varje kalkylblad och klicka Företag > Arbetsbokens verktyg > Dela arbetsbok, se skärmdump:
2. I Dela arbetsbok dialogrutan, kolla alla kalkylblad och klicka Split och ange sedan en mapp för att lägga till de nya arbetsboksfilerna. Se skärmdumpar:
3. Och sedan sparas varje kalkylblad i din nuvarande arbetsbok som en separat Excel-fil, du kan gå till din specifika mapp för att kontrollera storleken på varje arbetsbok.
Om du vill veta mer om den här funktionen för delad arbetsbok
Relaterade artiklar:
Hur delar jag en arbetsbok för att separera Excel-filer i Excel?
Hur exporterar och sparar jag ark och kalkylblad som en ny arbetsbok i Excel?
Bästa kontorsproduktivitetsverktyg
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...
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!