2 modi rapidi per ottenere la dimensione dei dati di ogni foglio di lavoro in una cartella di lavoro di Excel

Se vuoi ottenere rapidamente la dimensione dei dati di ogni foglio di lavoro in una cartella di lavoro di Excel, puoi fare riferimento a questo articolo. Qui condivideremo con te 2 pratici metodi.

A volte, quando si ha a che fare con una cartella di lavoro di Excel che consiste in una grande quantità di fogli di lavoro, potresti voler ottenere la dimensione dei dati di ciascun foglio di lavoro. Tuttavia, non esiste una funzionalità nativa per questo requisito. Pertanto, è necessario utilizzare alcune soluzioni alternative, come il seguente Metodo 1. Oppure è possibile utilizzare il Metodo 2 molto più intelligente per ottenere tutte le dimensioni dei dati dei fogli di lavoro in blocco.

Metodo 1: ottieni manualmente le dimensioni dei dati del foglio di lavoro uno per uno

1. Innanzitutto, apri la cartella di lavoro specifica di Excel.
2. Quindi, copia il contenuto di un foglio di lavoro di Excel.
3. Successivamente, crea una nuova cartella di lavoro e incolla il foglio di lavoro copiato nel Foglio 1.
4. Successivamente, salva la nuova cartella di lavoro in una cartella di Windows.
5. Infine, puoi controllare la dimensione dei dati della nuova cartella di lavoro, uguale alla dimensione dei dati del foglio di lavoro, in Esplora risorse, come mostrato nello screenshot seguente.
6. Ora puoi usare questo modo per ottenere le dimensioni dei dati di altri fogli di lavoro uno per uno.

Metodo 2: batch Ottieni le dimensioni dei dati di tutti i fogli di lavoro tramite VBA

1. Per cominciare, apri l'editor VBA di Excel secondo "Come eseguire il codice VBA nel tuo Excel".
2. Quindi inserire il codice seguente in un progetto o in un modulo.

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. Successivamente, premi "F5" per eseguire subito questa macro.
4. Alla fine, al termine della macro, torna alla cartella di lavoro.
5. Vedrai un nuovo foglio di lavoro all'inizio, che contiene la dimensione di ogni foglio di lavoro, come l'immagine seguente.

Confronto

Risolvi esasperanti problemi PST

Gli utenti possono riscontrare ogni sorta di fastidiosi problemi in MS Excel, che vanno dall'arresto o riavvio imprevisto a gravi corruzione xlsxIndubbiamente, il problema più spinoso è il file Excel danneggiato, in quanto non può essere risolto facilmente. Richiede l'utilizzo di uno strumento esterno per la riparazione di Excel, come DataNumen Excel Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corrotto SQL Server e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com