2 gyors módszer az egyes munkalapok adatméretének lekérésére egy Excel-munkafüzetben

Ha gyorsan szeretné lekérni az egyes munkalapok adatméretét egy Excel-munkafüzetben, tekintse meg ezt a cikket. Itt 2 praktikus módszert osztunk meg veled.

Időnként, amikor olyan Excel-munkafüzetekkel foglalkozik, amelyek nagy mennyiségű munkalapból állnak, érdemes megtudni az egyes munkalapok adatméretét. Ennek a követelménynek azonban nincs natív funkciója. Tehát néhány megkerülő megoldást kell alkalmaznia, például a következő 1. módszert. Vagy használhatja a sokkal intelligensebb 2. módszert is, hogy tömegesen kapja meg az összes munkalap adatméretét.

1. módszer: Munkalapadatok méretének lekérése egyenként manuálisan

1. Először nyissa meg az adott Excel-munkafüzetet.
2. Ezután másolja ki egy Excel-munkalap tartalmát.
3. Ezután hozzon létre egy új munkafüzetet, és illessze be a másolt munkalapot az 1. munkalapba.
4. Később mentse az új munkafüzetet egy Windows mappába.
5. Végül ellenőrizheti az új munkafüzet adatméretét, amely megegyezik a munkalap adatméretével, a Windows Intézőben, az alábbi képernyőképen látható módon.
6. Most ezzel a módszerrel egyenként lekérheti más munkalapok adatméreteit.

2. módszer: Az összes munkalap adatméreteinek kötegelt lekérése VBA-n keresztül

1. Kezdésként nyissa meg az Excel VBA szerkesztőjét a „A VBA kód futtatása az Excelben".
2. Ezután helyezze be a következő kódot egy projektbe vagy modulba.

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. Ezután nyomja meg az „F5” gombot a makró azonnali futtatásához.
4. Végül a makró befejezése után térjen vissza a munkafüzethez.
5. A legelején egy új munkalapot fog látni, amely tartalmazza az egyes munkalapok méretét, például a következő képen.

Compare

Javítsa ki a bosszantó PST-problémákat

A felhasználók az MS Excelben mindenféle zavaró problémával találkozhatnak, a váratlan leállástól vagy újraindítástól kezdvetart súlyosra xlsx korrupció. Kétségtelenül a most A csomós probléma az Excel fájl sérült, mivel nem oldható meg könnyen. Megköveteli, hogy alkalmazzon egy külső Excel-javító eszközt, mint pl DataNumen Excel Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve megvesztegethető SQL Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com