Jak zkontrolovat velikost každého listu sešitu?
Předpokládejme, že máte velký sešit, který obsahuje více listů, a nyní chcete zjistit velikost každého listu a určit, který list je třeba zmenšit. Existují nějaké rychlé metody řešení tohoto úkolu?
Zkontrolujte velikost každého listu pomocí kódu VBA
Zkontrolujte velikost každého listu pomocí Kutools pro Excel
Zkontrolujte velikost každého listu pomocí kódu VBA
S následujícím kódem VBA můžete rychle získat velikost každého listu v sešitu. Udělejte prosím toto:
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Zkontrolujte velikost každého listu v sešitu </ 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. Pak stiskněte tlačítko F5 klíč k provedení tohoto kódu a nový list s názvem Kutools pro Excel bude vložen do aktuálního sešitu, který obsahuje každý název listu a velikost souboru, a jednotka je bitová. Viz screenshot:
Zkontrolujte velikost každého listu pomocí Kutools pro Excel
Pokud máte Kutools pro Excel, S jeho Rozdělit sešit můžete rozdělit celý sešit na samostatné soubory a poté přejít do konkrétní složky a zkontrolovat velikost každého souboru.
Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.
Po instalaci Kutools pro Excel proveďte následující kroky:
1. Otevřete sešit, který chcete zkontrolovat velikost jednotlivých listů, a klikněte Kutools Plus > Cvičebnice > Rozdělit sešit.
2. V Rozdělit sešit v dialogovém okně zkontrolujte všechny listy a klikněte na Rozdělit tlačítko a poté určete složku, do které se mají vložit nové soubory sešitu. Zobrazit snímky obrazovky:
![]() |
![]() |
![]() |
3. A pak se každý list vašeho aktuálního sešitu uloží jako samostatný soubor Excel, můžete přejít do konkrétní složky a zkontrolovat velikost každého sešitu.
Další informace o této funkci Split Workbook.
Související články:
Jak rozdělit sešit na samostatné soubory aplikace Excel v aplikaci Excel?
Jak exportovat a ukládat listy a listy jako nový sešit v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!