2 maneiras rápidas de obter o tamanho dos dados de cada planilha em uma pasta de trabalho do Excel

Se você deseja obter rapidamente o tamanho dos dados de cada planilha em uma pasta de trabalho do Excel, consulte este artigo. Aqui, compartilharemos 2 métodos úteis com você.

Às vezes, ao lidar com uma pasta de trabalho do Excel que consiste em uma grande quantidade de planilhas, você pode querer obter o tamanho dos dados de cada planilha. No entanto, não há um recurso nativo para esse requisito. Portanto, você precisa usar algumas soluções alternativas, como o seguinte Método 1. Ou você pode usar o Método 2, muito mais inteligente, para obter todos os tamanhos de dados das planilhas em massa.

Método 1: obter manualmente o tamanho dos dados da planilha um por um

1. Primeiro, abra a pasta de trabalho específica do Excel.
2. Em seguida, copie o conteúdo de uma planilha do Excel.
3. Em seguida, crie uma nova pasta de trabalho e cole a planilha copiada na Planilha 1.
4. Posteriormente, salve a nova pasta de trabalho em uma pasta do Windows.
5. Por fim, você pode verificar o tamanho dos dados da nova pasta de trabalho, igual ao tamanho dos dados da planilha, no Windows Explorer, conforme mostrado na captura de tela a seguir.
6. Agora, você pode usar esse método para obter os tamanhos de dados de outras planilhas, um por um.

Método 2: lote obter os tamanhos de dados de todas as planilhas via VBA

1. Para começar, abra o editor Excel VBA de acordo com “Como executar o código VBA no seu Excel".
2. Em seguida, coloque o código a seguir em um projeto ou módulo.

Sub GetCadaWorksheetSize() Dim strTargetSheetName As String Dim strTempWorkbook As String Dim objTargetWorksheet As Worksheet Dim objWorksheet As Worksheet Dim objRange As Range Dim i As Long Dim nLastEmptyRow As Integer strTargetSheetName = "Tamanhos de folha" strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls" With ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)) .Name = strTargetSheetName .Cells(1, 1) = "Planilha" .Cells(1, 1).Font.Size = 14 .Cells(1, 1).Font.Bold = True .Cells(1, 2) = "Tamanho" . Cells(1, 2).Font.Size = 14 .Cells(1, 2).Font.Bold = True End With Set objTargetWorksheet = Application.Worksheets(strTargetSheetName) para cada objWorksheet em Application.ActiveWorkbook.Worksheets Se objWorksheet.Name <> strTargetSheetName Then objWorksheet.Copy Application.ActiveWorkbook.SaveAs strTempWorkbook Application.ActiveWorkbook.Close SaveChanges:=False nLastEmptyRow = objTargetWorksheet.Range("A" & objTargetWorksheet.Rows.Count).End(xlUp).Row + 1 Com objTargetWorksheet .Cells(nLastEmptyRow, 1) = objWorksheet.Name .Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook) End With Kill strTempWorkbook End If Next End Sub

3. Depois disso, pressione “F5” para executar esta macro imediatamente.
4. Eventualmente, após a conclusão da macro, volte para a pasta de trabalho.
5. Você verá uma nova planilha logo no início, que contém o tamanho de cada planilha, como na imagem a seguir.

Comparação

	Diferenciais	Desvantagens
Método 1	Fácil de operar	Muito problemático se houver muitas planilhas na pasta de trabalho atual
Método 2	Fácil e conveniente, não importa quantas planilhas existam na pasta de trabalho	Talvez o código VBA acima seja um pouco incompreensível para iniciantes

Corrigir problemas irritantes de PST

Os usuários podem encontrar todos os tipos de problemas perturbadores no MS Excel, desde desligamento inesperado ou restart para grave xlsx corrupção. Inquestionavelmente, o most O problema complicado é um arquivo do Excel danificado, pois não pode ser resolvido facilmente. Exige que você aplique uma ferramenta externa de correção do Excel, como DataNumen Excel Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrupto SQL Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com