2 hitra načina za pridobivanje velikosti podatkov vsakega delovnega lista v Excelovem delovnem zvezku

Če želite hitro pridobiti velikost podatkov vsakega delovnega lista v Excelovem delovnem zvezku, si lahko ogledate ta članek. Tukaj bomo z vami delili 2 priročna načina.

Včasih boste pri obravnavi Excelovega delovnega zvezka, ki je sestavljen iz velike količine delovnih listov, morda želeli pridobiti velikost podatkov vsakega delovnega lista. Vendar za to zahtevo ni izvorne funkcije. Torej morate uporabiti nekaj rešitev, na primer naslednjo metodo 1. Ali pa uporabite veliko pametnejšo metodo 2, da dobite velikost podatkov vseh delovnih listov v velikem obsegu.

1. način: ročno pridobite velikost podatkov delovnega lista

1. Najprej odprite določen Excelov delovni zvezek.
2. Nato kopirajte vsebino Excelovega delovnega lista.
3. Nato ustvarite nov delovni zvezek in prilepite kopirani delovni list v list 1.
4. Pozneje shranite nov delovni zvezek v mapo Windows.
5. Nazadnje lahko v Raziskovalcu preverite velikost podatkov novega delovnega zvezka, ki je enaka velikosti podatkov delovnega lista, kot je prikazano na naslednjem posnetku zaslona.
6. Zdaj lahko na ta način eno za drugo dobite velikost podatkov drugih delovnih listov.

2. način: paketno pridobite velikost podatkov vseh delovnih listov prek VBA

1. Za začetek odprite urejevalnik Excel VBA v skladu z »Kako zagnati kodo VBA v Excelu".
2. Nato v projekt ali modul vstavite naslednjo kodo.

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. Po tem pritisnite “F5”, da takoj zaženete ta makro.
4. Na koncu se po končanem makronaredbi vrnemo v delovni zvezek.
5. Na samem začetku boste videli nov delovni list, ki vsebuje velikost vsakega delovnega lista, kot je naslednja slika.

Primerjava

Odpravite neprijetne težave s PST

Uporabniki lahko v programu MS Excel naletijo na najrazličnejše moteče težave, od nepričakovanega izklopa ali ponovnega zagona do resnih težav. xlsx korupcijaNedvomno je najbolj zapleten problem poškodovana Excelova datoteka, saj je ni mogoče enostavno rešiti. Zahteva uporabo zunanjega orodja za popravilo Excela, kot je DataNumen Excel Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjena SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com