2 ātri veidi, kā iegūt katras darblapas datu lielumu Excel darbgrāmatā

Ja vēlaties ātri iegūt katras darblapas datu lielumu Excel darbgrāmatā, varat atsaukties uz šo rakstu. Šeit mēs dalīsimies ar jums 2 ērtās metodēs.

Reizēm, strādājot ar Excel darbgrāmatu, kas sastāv no liela apjoma darblapām, iespējams, vēlēsities iegūt katras darblapas datu lielumu. Tomēr šai prasībai nav vietējas iezīmes. Tātad jums jāizmanto daži risinājumi, piemēram, šī 1. metode. Vai arī varat izmantot daudz gudrāku 2. metodi, lai iegūtu visu darblapu datu lielumus lielos apjomos.

1. metode: iegūstiet darblapas datu lielumu pa vienam manuāli

1. Sākumā atveriet konkrēto Excel darbgrāmatu.
2. Pēc tam nokopējiet Excel darblapas saturu.
3. Pēc tam izveidojiet jaunu darbgrāmatu un ielīmējiet kopēto darblapu 1. lapā.
4. Vēlāk saglabājiet jauno darbgrāmatu Windows mapē.
5. Visbeidzot, pārlūkprogrammā Windows Explorer varat pārbaudīt jaunās darbgrāmatas datu lielumu, kas vienāds ar darblapas datu lielumu, kā parādīts nākamajā ekrānuzņēmumā.
6. Tagad jūs varat izmantot šo veidu, lai pa vienam iegūtu citu darblapu datu lielumus.

2. metode. Sērijveidā iegūstiet visu darblapu datu izmērus, izmantojot VBA

1. Vispirms atveriet Excel VBA redaktoru atbilstoši “Kā palaist VBA kodu savā Excel".
2. Pēc tam projektā vai modulī ievietojiet šādu kodu.

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ēc tam nospiediet “F5”, lai uzreiz palaistu šo makro.
4. Galu galā pēc makro pabeigšanas atgriezieties pie darbgrāmatas.
5. Jau pašā sākumā redzēsiet jaunu darblapu, kurā ir katras darblapas lielums, piemēram, šis attēls.

salīdzinājums

Labojiet satraucošus PST jautājumus

Lietotāji var saskarties ar visa veida traucējošām problēmām programmā MS Excel, sākot no negaidītas izslēgšanas vai restartēšanas līdz nopietnām problēmām xlsx korupcijaNeapšaubāmi, visproblemātiskākā problēma ir bojāts Excel fails, jo to nav viegli atrisināt. Lai to novērstu, jums ir jāizmanto ārējs Excel labošanas rīks, piemēram, DataNumen Excel Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāt SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar