2 rychlé způsoby, jak získat velikost dat každého listu v sešitu aplikace Excel

Pokud chcete rychle získat velikost dat každého listu v sešitu aplikace Excel, můžete si přečíst tento článek. Zde s vámi sdílíme 2 užitečné metody.

Občas můžete při práci se sešitem aplikace Excel, který se skládá z velkého množství listů, získat velikost dat každého listu. Pro tento požadavek však neexistuje nativní funkce. Musíte tedy použít některá alternativní řešení, například následující metodu 1. Nebo můžete použít mnohem chytřejší metodu 2 a získat hromadně velikosti dat všech listů.

Metoda 1: Ruční získání velikosti dat listu po jednom

1. Nejprve otevřete konkrétní sešit aplikace Excel.
2. Poté zkopírujte obsah listu aplikace Excel.
3. Dále vytvořte nový sešit a vložte zkopírovaný list do listu 1.
4. Později uložte nový sešit do složky Windows.
5. Nakonec můžete v Průzkumníkovi Windows zkontrolovat velikost dat nového sešitu, která se rovná velikosti dat listu, jak je znázorněno na následujícím snímku obrazovky.
6. Nyní můžete tímto způsobem získat datové velikosti dalších listů jeden po druhém.

Metoda 2: Dávkové získání velikostí dat všech pracovních listů pomocí VBA

1. Nejprve otevřete editor Excel VBA podle „Jak spustit kód VBA v aplikaci Excel".
2. Poté vložte následující kód do projektu nebo modulu.

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 = "Sheet Sizes"
    strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls"

    With ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
         .Name = strTargetSheetName
         .Cells(1, 1) = "Sheet"
         .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.Bold = True
    End With

    Set objTargetWorksheet = Application.Worksheets(strTargetSheetName)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strTargetSheetName Then
           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

3. Poté stiskněte „F5“ pro okamžité spuštění tohoto makra.
4. Nakonec, po dokončení makra, zpět do sešitu.
5. Na samém začátku uvidíte nový list, který obsahuje velikost každého listu, například následující obrázek.

Porovnání

Opravte podrážděné problémy PST

Uživatelé se v MS Excelu mohou setkat se všemi druhy znepokojivých problémů, od neočekávaného vypnutí nebo restartu až po vážné problémy. xlsx korupceNejzáludnějším problémem je bezpochyby poškozený soubor Excelu, protože jej nelze snadno vyřešit. Vyžaduje použití externího nástroje pro opravu Excelu, například DataNumen Excel Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkažený SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com