2 formas rápidas de obtener el tamaño de los datos de cada hoja de trabajo en un libro de Excel

Si desea obtener rápidamente el tamaño de los datos de cada hoja de trabajo en un libro de Excel, puede consultar este artículo. Aquí compartiremos 2 métodos prácticos contigo.

A veces, cuando se trata de un libro de Excel que consta de una gran cantidad de hojas de trabajo, es posible que desee obtener el tamaño de los datos de cada hoja de trabajo. Sin embargo, no existe una característica nativa para este requisito. Por lo tanto, debe usar algunas soluciones, como el siguiente Método 1. O puede usar el Método 2, mucho más inteligente, para obtener todos los tamaños de datos de las hojas de trabajo en forma masiva.

Método 1: Obtenga el tamaño de los datos de la hoja de trabajo uno por uno manualmente

1. Primero, abra el libro de Excel específico.
2. Luego, copie el contenido de una hoja de cálculo de Excel.
3. A continuación, cree un nuevo libro de trabajo y pegue la hoja de trabajo copiada en la Hoja 1.
4. Más tarde, guarde el nuevo libro de trabajo en una carpeta de Windows.
5. Por último, puede verificar el tamaño de los datos del nuevo libro de trabajo, igual al tamaño de los datos de la hoja de trabajo, en el Explorador de Windows, como se muestra en la siguiente captura de pantalla.
6. Ahora, puede usar esta forma para obtener los tamaños de datos de otras hojas de trabajo uno por uno.

Método 2: Obtenga por lotes los tamaños de datos de todas las hojas de trabajo a través de VBA

1. Para empezar, abra el editor de Excel VBA de acuerdo con "Cómo ejecutar código VBA en su Excel".
2. Luego, coloque el siguiente código en un proyecto o 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. Después de eso, presione "F5" para ejecutar esta macro de inmediato.
4. Finalmente, después de que finalice la macro, vuelva al libro de trabajo.
5. Verá una nueva hoja de trabajo al principio, que contiene el tamaño de cada hoja de trabajo, como la siguiente imagen.

Comparación

Solucionar problemas de PST exasperantes

Los usuarios pueden encontrarse con todo tipo de problemas molestos en MS Excel, que van desde apagados o reinicios inesperados hasta graves corrupción xlsxSin duda, el problema más complicado es el archivo de Excel dañado, ya que no se puede resolver fácilmente. Requiere que apliques una herramienta externa de reparación de Excel, como DataNumen Excel Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupto SQL Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com