2 kiiret viisi iga töölehe andmete suuruse hankimiseks Exceli töövihikusse

Kui soovite kiiresti hankida Exceli töövihiku iga töölehe andmemahu, vaadake seda artiklit. Siin jagame teiega 2 käepärast meetodit.

Mõnikord, kui käsitlete Exceli töövihikut, mis koosneb suurest hulgast töölehtedest, võite soovida saada iga töölehe andmemahtu. Selle nõude jaoks pole aga natiivset funktsiooni. Seega peate kasutama mõningaid lahendusi, näiteks järgmist 1. meetodit. Või võite kasutada palju nutikamat meetodit 2, et hankida kõigi töölehtede andmemahud hulgi.

1. meetod: hankige töölehe andmete suurus ükshaaval käsitsi

1. Kõigepealt avage konkreetne Exceli töövihik.
2. Seejärel kopeerige Exceli töölehe sisu.
3. Järgmisena looge uus töövihik ja kleepige kopeeritud tööleht lehele 1.
4. Hiljem salvestage uus töövihik Windowsi kausta.
5. Lõpuks saate Windows Exploreris kontrollida uue töövihiku andmemahtu, mis on võrdne töölehe andmemahuga, nagu on näidatud järgmisel ekraanipildil.
6. Nüüd saate seda meetodit kasutada teiste töölehtede andmete suuruse ükshaaval hankimiseks.

2. meetod: hankige VBA kaudu kõigi töölehtede andmesuurused partiidena

1. Alustuseks avage Exceli VBA redaktor vastavalt "Kuidas Excelis VBA koodi käivitada".
2. Seejärel sisestage projekti või moodulisse järgmine kood.

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. Pärast seda vajutage selle makro kohe käivitamiseks nuppu F5.
4. Lõpuks, pärast makro lõpetamist, tagasi töövihiku juurde.
5. Näete kohe alguses uut töölehte, mis sisaldab iga töölehe suurust, nagu järgmine pilt.

võrdlus

Parandage ärritavad PST-probleemid

Kasutajad võivad MS Excelis kokku puutuda igasuguste häirivate probleemidega, alates ootamatust sulgemisest või taaskäivitamisest kuni tõsiste probleemideni. xlsx korruptsioonKahtlemata on kõige keerulisem probleem kahjustatud Exceli fail, kuna seda ei ole lihtne lahendada. See nõuab välise Exceli parandustööriista rakendamist, näiteks DataNumen Excel Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas korrumpeerunud SQL Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom