2 greiti būdai, kaip gauti kiekvieno „Excel“ darbaknygės darbalapio duomenų dydį

Jei norite greitai gauti kiekvieno „Excel“ darbaknygės darbalapio duomenų dydį, galite peržiūrėti šį straipsnį. Čia mes pasidalinsime su jumis 2 patogiais būdais.

Kartais, kai dirbate su „Excel“ darbaknyge, kurią sudaro daug darbalapių, galbūt norėsite sužinoti kiekvieno darbalapio duomenų dydį. Tačiau šio reikalavimo savosios funkcijos nėra. Taigi, turite naudoti tam tikrus sprendimus, pvz., šį 1 metodą. Arba galite naudoti daug protingesnį 2 metodą, kad gautumėte visų darbalapių duomenų dydžius.

1 būdas: gaukite darbalapio duomenų dydį po vieną rankiniu būdu

1. Pirmiausia atidarykite konkrečią „Excel“ darbaknygę.
2. Tada nukopijuokite „Excel“ darbalapio turinį.
3. Tada sukurkite naują darbaknygę ir įklijuokite nukopijuotą darbalapį į 1 lapą.
4. Vėliau išsaugokite naują darbaknygę „Windows“ aplanke.
5. Galiausiai galite patikrinti naujos darbaknygės duomenų dydį, lygų darbalapio duomenų dydžiui, naudodami „Windows Explorer“, kaip parodyta toliau esančioje ekrano kopijoje.
6. Dabar galite naudoti šį būdą, norėdami po vieną gauti kitų darbalapių duomenų dydžius.

2 būdas: gaukite visų darbalapių duomenų dydžius paketu per VBA

1. Norėdami pradėti, atidarykite „Excel VBA“ redaktorių pagal „Kaip paleisti VBA kodą „Excel“.".
2. Tada įdėkite šį kodą į projektą arba modulį.

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 to paspauskite „F5“, kad iš karto paleistumėte šią makrokomandą.
4. Galiausiai, baigus makrokomandą, grįžkite į darbaknygę.
5. Pačioje pradžioje pamatysite naują darbalapį, kuriame bus nurodytas kiekvieno darbalapio dydis, kaip ir toliau pateiktame paveikslėlyje.

Palyginimas

Išspręskite varginančias PST problemas

„MS Excel“ vartotojai gali susidurti su įvairiausiais nerimą keliančiais sunkumais – nuo ​​netikėto išsijungimo ar perkrovimo iki rimtų problemų. xlsx korupcijaBe jokios abejonės, sudėtingiausia problema yra sugadintas „Excel“ failas, nes jo negalima lengvai išspręsti. Tam reikia naudoti išorinį „Excel“ taisymo įrankį, pvz. DataNumen Excel Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com