Como verificar o tamanho de cada folha de cálculo no livro?
Suponha que tem um livro grande com várias folhas de cálculo e que, neste momento, pretende descobrir o tamanho de cada uma para identificar qual precisa de ser reduzida. Existem métodos rápidos para realizar esta tarefa?
Verifique o tamanho de cada folha de cálculo com código VBA
Verifique o tamanho de cada folha de cálculo com Kutools para Excel
Verifique o tamanho de cada folha de cálculo com código VBA
Com o seguinte código VBA, pode obter rapidamente o tamanho de cada folha de cálculo no seu livro. Siga estes passos:
1. Mantenha premidas as teclas «ALT» + "F11" para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em «Inserir» > «Módulo» e cole o código seguinte na «Janela do Módulo».
Código VBA: Verifique o tamanho de cada folha de cálculo num livro
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, prima a tecla "F5" para executar este código e uma nova pasta de trabalho denominada «KutoolsforExcel» será inserida no Livro de Trabalho Atual, listando o nome de cada planilha e o respetivo tamanho do ficheiro em bits. Veja a imagem:
Verifique o tamanho de cada folha de cálculo com Kutools para Excel
Se tiver o «Kutools para Excel», com a sua utilidade «Separar Livro», pode dividir todo o livro em ficheiros separados e, depois, aceder à pasta específica para verificar o tamanho de cada ficheiro.
O «Kutools para Excel» inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente e sem limitações durante 30 dias.Obtenha-o Agora.
Após instalar o Kutools para Excel, siga os passos abaixo:
1. Abra o livro cujo tamanho de cada folha de cálculo pretende verificar e clique em «KUTOOLS PLUS» > «Livro» > «Separar Livro».
2. Na caixa de diálogo «Separar Livro», selecione todas as folhas de cálculo e clique em «Dividir»; depois, indique uma pasta para guardar os ficheiros do Novo Livro. Veja as imagens:
 |
 |
 |
3. Assim, cada folha de cálculo do seu Livro de Trabalho Atual será guardada como um ficheiro Excel separado, podendo aceder à pasta indicada para verificar o tamanho de cada livro.
Para saber mais sobre esta funcionalidade do Separar Livro.
Artigos relacionados:
Como dividir um livro em ficheiros do Excel separados no Excel?
Como exportar e guardar folhas e folhas de cálculo como um novo livro no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos