2 Mabilis na Mga Paraan upang Makuha ang Sukat ng Data ng bawat Worksheet sa isang Excel Workbook

Kung nais mong mabilis na makuha ang laki ng data ng bawat worksheet sa isang workbook ng Excel, maaari kang mag-refer sa artikulong ito. Dito ibabahagi namin sa iyo ang 2 madaling gamiting pamamaraan.

Sa mga oras, kapag nakikipag-usap sa isang workbook ng Excel na binubuo ng isang malaking halaga ng mga worksheet, baka gusto mong makuha ang laki ng data ng bawat worksheet. Gayunpaman, walang isang katutubong tampok para sa kinakailangang ito. Kaya, kailangan mong gumamit ng ilang mga workaround, tulad ng sumusunod na Paraan 1. O maaari mong gamitin ang mas matalinong Paraan 2 upang makuha ang lahat ng laki ng data ng mga worksheet.

Paraan 1: Kumuha ng Isa-isang Manu-manong Laki ng Data ng Worksheet

1. Sa una, buksan ang tukoy na workbook ng Excel.
2. Pagkatapos, kopyahin ang mga nilalaman ng isang worksheet ng Excel.
3. Susunod, lumikha ng isang bagong workbook at i-paste ang nakopya na worksheet sa Sheet 1.
4. Sa paglaon, i-save ang bagong workbook sa isang folder ng Windows.
5. Panghuli, maaari mong suriin ang laki ng data ng bagong workbook, katumbas ng laki ng data ng worksheet, sa Windows Explorer, tulad ng ipinapakita sa sumusunod na screenshot.
6. Ngayon, maaari mong gamitin ang ganitong paraan upang makuha ang mga laki ng data ng iba pang mga worksheet nang paisa-isa.

Paraan 2: Batch Kunin ang Mga Laki ng Data ng Lahat ng Mga Worksheet sa pamamagitan ng VBA

1. Upang magsimula, buksan ang editor ng Excel VBA ayon sa “Paano Patakbuhin ang VBA Code sa Iyong Excel".
2. Pagkatapos, ilagay ang sumusunod na code sa isang proyekto o module.

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. Pagkatapos nito, pindutin ang "F5" upang patakbo kaagad ang macro na ito.
4. Sa paglaon, pagkatapos ng makro na natapos, bumalik sa workbook.
5. Makakakita ka ng isang bagong worksheet sa simula pa, na naglalaman ng laki ng bawat worksheet, tulad ng sumusunod na imahe.

paghahambing

Ayusin ang Exasperating Mga Isyu ng PST

Maaaring makaranas ang mga gumagamit ng lahat ng uri ng nakakagambalang problema sa MS Excel, mula sa hindi inaasahang pag-shutdown o pag-restart hanggang sa malalang problema. xlsx katiwalianWalang dudang ang pinakamahirap na problema ay ang sirang Excel file dahil hindi ito madaling malutas. Kinakailangan nito na gumamit ka ng isang panlabas na tool sa pag-aayos ng Excel, tulad ng DataNumen Excel Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sira SQL Server at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa