Přejít k hlavnímu obsahu

Jak zkontrolovat velikost každého listu sešitu?

Autor: Xiaoyang Naposledy změněno: 2024-11-28

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


šipka modrá pravá bublina 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 listu pomocí kódu vba, abyste získali výsledek


šipka modrá pravá bublina 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:

zkontrolujte velikost listu rozdělením každého listu pomocí kutools 1
šipka
zkontrolujte velikost listu rozdělením každého listu pomocí kutools 2

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.

zkontrolujte velikost listu rozdělením každého listu s výsledkem kutools

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

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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!