Come controllare la dimensione di ogni foglio di lavoro della cartella di lavoro?

Supponendo di avere una cartella di lavoro di grandi dimensioni che contiene più fogli di lavoro e ora, si desidera scoprire la dimensione di ciascun foglio di lavoro per determinare quale foglio deve essere ridotto. Esistono metodi rapidi per affrontare questa attività?

Controlla la dimensione di ogni foglio di lavoro con il codice VBA

Controlla la dimensione di ciascun foglio di lavoro con Kutools per Excel

Controlla la dimensione di ogni foglio di lavoro con il codice VBA

Con il seguente codice VBA, puoi ottenere rapidamente le dimensioni di ciascun foglio di lavoro nella cartella di lavoro. Per favore, fai come segue:

1. Tieni premuto il ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: controlla la dimensione di ogni foglio di lavoro in una cartella di lavoro </ p>

Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
    xOutWs.Delete
    Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
    .Name = xOutName
    .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
    If xWs.Name <> xOutName Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs xOutFile
        Application.ActiveWorkbook.Close SaveChanges:=False
        Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
        Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
        Kill xOutFile
        xIndex = xIndex + 1
    End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub

3. Quindi premere F5 chiave per eseguire questo codice e un nuovo foglio di lavoro denominato Kutools per Excel verrà inserito nella cartella di lavoro corrente che contiene il nome di ciascun foglio di lavoro e la dimensione del file e l'unità è Bit. Vedi screenshot:

Controlla la dimensione di ciascun foglio di lavoro con Kutools per Excel

Se si dispone di Kutools for Excel, Con la sua Cartella di lavoro divisa utility, puoi dividere l'intera cartella di lavoro in file separati, quindi andare alla cartella specifica per controllare la dimensione di ogni file.

Kutools for Excel include più di 300 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now.

Dopo aver installato Kutools per Excel, eseguire i seguenti passaggi:

1. Apri la cartella di lavoro di cui desideri controllare le dimensioni di ciascun foglio di lavoro e fai clic su Kutools Plus > Cartella di lavoro > Cartella di lavoro divisa.

2. Nel Cartella di lavoro divisa finestra di dialogo, controlla tutti i fogli di lavoro e fai clic su Diviso e quindi specificare una cartella in cui inserire i nuovi file della cartella di lavoro. Vedi screenshot:

3. E poi ogni foglio di lavoro della tua cartella di lavoro corrente verrà salvato come file Excel separato, puoi andare alla tua cartella specifica per controllare la dimensione di ogni cartella di lavoro.

Per saperne di più su questa funzionalità della cartella di lavoro divisa.

Articoli correlati:

Come dividere una cartella di lavoro per separare i file Excel in Excel?

Come esportare e salvare fogli e fogli di lavoro come nuova cartella di lavoro in Excel?