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 Impresa > Strumenti della cartella di lavoro > Cartella di lavoro divisa, vedi screenshot:
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?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
