¿Cómo comprobar el tamaño de cada hoja de cálculo de un libro de trabajo?

Supongamos que tienes un libro de trabajo grande que contiene múltiples hojas de cálculo, y ahora quieres averiguar el tamaño de cada hoja para determinar cuál necesita ser reducida. ¿Existen métodos rápidos para manejar esta tarea?

Comprobar el tamaño de cada hoja de cálculo con código VBA

Comprobar el tamaño de cada hoja de cálculo con Kutools para Excel

Comprobar el tamaño de cada hoja de cálculo con código VBA

Con el siguiente código VBA, puedes obtener rápidamente el tamaño de cada hoja de cálculo en tu libro de trabajo. Por favor, sigue estos pasos:

1. Mantén presionadas las teclas "ALT" + "F11", y se abrirá la ventana "Microsoft Visual Basic para Aplicaciones".

2. Haz clic en "Insertar" > "Módulo", y pega el siguiente código en la "Ventana del Módulo".

Código VBA: Comprobar el tamaño de cada hoja de cálculo en un libro de trabajo

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. Luego presiona la tecla "F5" para ejecutar este código, y una nueva hoja de cálculo llamada "KutoolsforExcel" será insertada en el libro de trabajo actual, que contendrá el nombre de cada hoja de cálculo y su tamaño de archivo, y la unidad es Bit. Ver captura de pantalla:

Comprobar el tamaño de cada hoja de cálculo con Kutools para Excel

Si tienes "Kutools para Excel", con su utilidad "Separar libro", puedes dividir todo el libro en archivos separados, y luego ir a la carpeta específica para comprobar el tamaño de cada archivo.

"Kutools para Excel" incluye más de 300 herramientas útiles para Excel. Prueba gratis sin limitaciones durante 30 días. Consíguelo Ahora.

Después de instalar Kutools para Excel, sigue los siguientes pasos:

1. Abre el libro de trabajo en el que deseas comprobar el tamaño de cada hoja de cálculo, y haz clic en "Kutools Plus" > "Libro de Trabajo" > "Separar Libro de Trabajo".

2. En el cuadro de diálogo "Separar Libro de Trabajo", selecciona todas las hojas de cálculo y haz clic en el botón "Separar", y luego especifica una carpeta para colocar los nuevos archivos de libros de trabajo. Ver capturas de pantalla:

3. Y luego, cada hoja de cálculo de tu libro de trabajo actual se guardará como un archivo de Excel separado, puedes ir a tu carpeta específica para comprobar el tamaño de cada libro de trabajo.

Para saber más sobre esta función Separar Libro de Trabajo.

Artículos relacionados:

¿Cómo dividir un libro de trabajo en archivos de Excel separados en Excel?

¿Cómo exportar y guardar hojas y hojas de cálculo como un nuevo libro de trabajo en Excel?