2 rýchle spôsoby, ako získať veľkosť údajov každého pracovného hárka v zošite programu Excel

Ak chcete rýchlo získať veľkosť údajov každého pracovného hárka v zošite programu Excel, môžete si prečítať tento článok. Tu s vami zdieľame 2 užitočné metódy.

Pri práci so zošitom programu Excel, ktorý pozostáva z veľkého množstva pracovných hárkov, môžete občas získať veľkosť údajov každého pracovného hárka. Pre túto požiadavku však neexistuje natívna funkcia. Musíte teda použiť niektoré zástupné riešenia, napríklad nasledujúcu metódu 1. Alebo môžete použiť oveľa inteligentnejšiu metódu 2, pomocou ktorej získate hromadne veľkosti dát všetkých pracovných hárkov.

Metóda 1: Manuálne získanie veľkosti dát pracovného hárka

1. Najskôr otvorte konkrétny zošit programu Excel.
2. Potom skopírujte obsah pracovného hárka programu Excel.
3. Ďalej vytvorte nový zošit a skopírovaný pracovný hárok vložte do hárka 1.
4. Neskôr uložte nový zošit do priečinka Windows.
5. Na záver môžete v Prieskumníkovi systému Windows skontrolovať veľkosť údajov nového zošita, ktorá sa rovná veľkosti údajov v pracovnom hárku, ako je znázornené na nasledujúcej snímke obrazovky.
6. Týmto spôsobom teraz môžete získať veľkosť dát ďalších pracovných hárkov jeden po druhom.

Metóda 2: Dávkové získanie veľkosti dát všetkých pracovných hárkov pomocou VBA

1. Najskôr otvorte editor Excel VBA podľa „Ako spustiť kód VBA v programe Excel".
2. Potom vložte nasledujúci kód do projektu alebo 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. Potom stlačte kláves „F5“, aby ste toto makro okamžite spustili.
4. Nakoniec po dokončení makra späť do zošita.
5. Hneď na začiatku uvidíte nový pracovný hárok, ktorý obsahuje veľkosť každého pracovného hárka, napríklad nasledujúci obrázok.

Porovnanie

Opravte nepríjemné problémy s PST

Používatelia sa môžu v programe MS Excel stretnúť so všetkými druhmi rušivých problémov, od neočakávaného vypnutia alebo reštartu až po vážne problémy. xlsx korupciaNajzložitejším problémom je nepochybne poškodený súbor programu Excel, pretože sa nedá ľahko vyriešiť. Vyžaduje si to použitie externého nástroja na opravu programu Excel, ako napríklad DataNumen Excel Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skazený SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S