Como verificar o tamanho de cada planilha da pasta de trabalho?
Suponha que você tenha uma grande pasta de trabalho que contém várias planilhas e, agora, deseja descobrir o tamanho de cada planilha para determinar qual planilha precisa ser reduzida. Existem métodos rápidos para lidar com essa tarefa?
Verifique o tamanho de cada planilha com o código VBA
Verifique o tamanho de cada planilha com o Kutools para Excel
Verifique o tamanho de cada planilha com o código VBA
Com o código VBA a seguir, você pode obter rapidamente o tamanho de cada planilha em sua pasta de trabalho. Por favor, faça o seguinte:
1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: verifique o tamanho de cada planilha em uma pasta de trabalho </ 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. Então aperte F5 chave para executar este código, e uma nova planilha chamada Kutools para Excel será inserido na pasta de trabalho atual que contém cada nome de planilha e tamanho de arquivo, e a unidade é Bit. Veja a imagem:
Verifique o tamanho de cada planilha com o Kutools para Excel
Se você tem Kutools for Excel, Com o seu Dividir a pasta de trabalho utilitário, você pode dividir toda a pasta de trabalho em arquivos separados e, em seguida, ir para a pasta específica para verificar o tamanho de cada arquivo.
Kutools for Excel inclui mais de 300 ferramentas úteis do Excel. Gratuito para testar sem limitação em 30 dias. Get it Now.
Depois de instalar o Kutools para Excel, siga as seguintes etapas:
1. Abra a pasta de trabalho da qual deseja verificar o tamanho de cada planilha e clique em Empreendimento > Ferramentas de pasta de trabalho > Dividir a pasta de trabalho, veja a captura de tela:
2. No Dividir a pasta de trabalho caixa de diálogo, verifique todas as planilhas e clique em Split e, em seguida, 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 Excel separado, você pode ir para sua pasta específica para verificar o tamanho de cada pasta de trabalho.
Para saber mais sobre este recurso Split Workbook.
Artigos relacionados:
Como dividir uma pasta de trabalho para separar arquivos do Excel no Excel?
Como exportar e salvar planilhas e planilhas como nova pasta de trabalho no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
