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 GetEachWorksheetSize()
    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 = "Sheet Sizes"
    strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls"

    With ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
         .Name = strTargetSheetName
         .Cells(1, 1) = "Sheet"
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Size"
         .Cells(1, 2).Font.Size = 14
         .Cells(1, 2).Font.Bold = True
    End With

    Set objTargetWorksheet = Application.Worksheets(strTargetSheetName)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If 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

           With 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

Corrigir problemas irritantes de PST

Os usuários podem se deparar com diversos problemas perturbadores no MS Excel, desde desligamentos ou reinicializações inesperadas até falhas graves. xlsx corrupçãoSem dúvida, o problema mais complexo é o arquivo Excel corrompido, pois não pode ser resolvido facilmente. Ele exige o uso de uma ferramenta externa de reparo 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