Como verificar o tamanho de cada planilha da pasta de trabalho?

Suponha que você tenha uma pasta de trabalho grande que contém várias planilhas, e agora deseja descobrir o tamanho de cada planilha para determinar qual delas precisa ser reduzida. Existem métodos rápidos para lidar com essa tarefa?

Verifique o tamanho de cada planilha com código VBA

Verifique o tamanho de cada planilha com Kutools para Excel

Verifique o tamanho de cada planilha com código VBA

Com o seguinte código VBA, você pode obter rapidamente o tamanho de cada planilha em sua pasta de trabalho. Por favor, siga estas instruções:

1. Pressione e segure as teclas "ALT" + "F11", e abrirá a "Janela do Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo", e cole o seguinte código na "Janela do Módulo".

Código VBA: Verifique o tamanho de cada planilha em uma pasta de trabalho

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. Em seguida, pressione a tecla "F5" para executar este código, e uma nova planilha chamada "KutoolsforExcel" será inserida na pasta de trabalho atual, contendo o nome de cada planilha e o tamanho do arquivo, e a unidade é Bit. Veja a captura de tela:

Verifique o tamanho de cada planilha com Kutools para Excel

Se você possui o "Kutools para Excel", com sua ferramenta "Separar Pasta de Trabalho", você pode dividir toda a pasta de trabalho em arquivos separados e depois ir para a pasta específica para verificar o tamanho de cada arquivo.

O "Kutools para Excel" inclui mais de 300 ferramentas úteis para o Excel. Gratuito para experimentar sem limitação por 30 dias. Obtenha-o Agora.

Após instalar o Kutools para Excel, siga os passos abaixo:

1. Abra a pasta de trabalho que deseja verificar o tamanho de cada planilha e clique em "Kutools Plus" > "Pasta de Trabalho" > "Separar Pasta de Trabalho".

2. Na caixa de diálogo "Separar Pasta de Trabalho", marque todas as planilhas e clique no botão "Separar", e depois especifique uma pasta para colocar os novos arquivos da pasta de trabalho. Veja as capturas de tela:

3. E então, cada planilha de sua pasta de trabalho atual será salva como um arquivo do Excel separado, você pode ir à sua pasta específica para verificar o tamanho de cada pasta de trabalho.

Para saber mais sobre este recurso Separar Pasta de Trabalho.

Artigos relacionados:

Como dividir uma pasta de trabalho em arquivos separados do Excel no Excel?

Como exportar e salvar planilhas como nova pasta de trabalho no Excel?