2 moduri rapide de a obține dimensiunea datelor fiecărei foi de lucru dintr-un registru de lucru Excel

Dacă doriți să obțineți rapid dimensiunea datelor fiecărei foi de lucru dintr-un registru de lucru Excel, puteți consulta acest articol. Aici vă vom împărtăși 2 metode utile.

Uneori, atunci când aveți de-a face cu un registru de lucru Excel care constă dintr-o cantitate mare de foi de lucru, este posibil să doriți să obțineți dimensiunea datelor fiecărei foi de lucru. Cu toate acestea, nu există o caracteristică nativă pentru această cerință. Așadar, trebuie să utilizați câteva soluții, cum ar fi următoarea Metodă 1. Sau puteți utiliza Metoda 2, mult mai inteligentă, pentru a obține în bloc dimensiunile datelor tuturor foilor de lucru.

Metoda 1: Obțineți manual dimensiunea datelor din foaia de lucru unul câte unul

1. La început, deschideți registrul de lucru Excel specific.
2. Apoi, copiați conținutul unei foi de lucru Excel.
3. Apoi, creați un nou registru de lucru și inserați foaia de lucru copiată în Foaia 1.
4. Mai târziu, salvați noul registru de lucru într-un folder Windows.
5. În cele din urmă, puteți verifica dimensiunea datelor noului registru de lucru, egală cu dimensiunea datelor foii de lucru, în Windows Explorer, așa cum se arată în următoarea captură de ecran.
6. Acum, puteți utiliza acest mod pentru a obține dimensiunea datelor altor foi de lucru una câte una.

Metoda 2: Loturi Obțineți dimensiunile datelor tuturor foilor de lucru prin VBA

1. Pentru început, deschideți editorul Excel VBA conform „Cum să rulați codul VBA în Excel".
2. Apoi, introduceți următorul cod într-un proiect sau 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. După aceea, apăsați „F5” pentru a rula această macrocomandă imediat.
4. În cele din urmă, după terminarea macro, reveniți la registrul de lucru.
5. Veți vedea o foaie de lucru nouă la început, care conține dimensiunea fiecărei foi de lucru, ca în imaginea următoare.

Comparaţie

Remediați problemele PST exasperante

Utilizatorii pot întâmpina tot felul de probleme deranjante în MS Excel, de la oprirea sau repornirea neașteptată până la erori severe. corupție xlsxFără îndoială, cea mai dificilă problemă este fișierul Excel deteriorat, deoarece nu poate fi rezolvat cu ușurință. Necesită aplicarea unui instrument extern de remediere a fișierelor Excel, cum ar fi DataNumen Excel Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupt SQL Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com