¿Cómo puedo comprobar el tamaño de cada hoja de cálculo del libro?
Supongamos que tiene un libro grande con varias hojas de cálculo y quiere conocer el tamaño de cada una para decidir cuál reducir. ¿Existen métodos rápidos para hacerlo?
Compruebe el tamaño de cada hoja de cálculo con código VBA
Compruebe el tamaño de cada hoja de cálculo con Kutools para Excel
Compruebe el tamaño de cada hoja de cálculo con código VBA
Con el siguiente código VBA, podrá obtener rápidamente el tamaño de cada hoja de cálculo de su libro. Siga estos pasos:
1. Mantenga pulsadas las teclas «ALT» + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en «Insertar» > «Módulo» y pegue el siguiente código en la ventana del módulo.
Código VBA: Compruebe el tamaño de cada hoja de cálculo en un libro
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. A continuación, pulse la tecla "F5" para ejecutar este código y se insertará una nueva hoja de cálculo llamada «KutoolsforExcel» en el libro de trabajo actual, que incluirá el nombre de cada hoja y el tamaño del archivo en bits. Vea la captura de pantalla:
Compruebe el tamaño de cada hoja de cálculo con Kutools para Excel
Si dispone de «Kutools para Excel», puede utilizar su función «Separar libro» para dividir todo el libro en archivos independientes y, a continuación, acceder a la carpeta correspondiente y comprobar el tamaño de cada archivo.
«Kutools para Excel» incluye más de 300 herramientas prácticas para Excel. ¡Pruébelo gratis sin limitaciones durante 30 días!Consígalo ahora.
Después de instalar Kutools para Excel, siga estos pasos:
1. Abra el libro cuyo tamaño de cada hoja de cálculo desea comprobar y haga clic en «Kutools Plus» > «Libro» > «Separar libro».
2. En el cuadro de diálogo «Separar libro», seleccione todas las hojas de cálculo y haga clic en el botón «Dividir». A continuación, especifique una carpeta para guardar los nuevos archivos de libro de trabajo. Consulte las capturas de pantalla:
 |
 |
 |
3. Cada hoja de cálculo de su libro de trabajo actual se guardará como un archivo de Excel independiente, por lo que podrá acceder a la carpeta correspondiente para comprobar el tamaño de cada uno.
Para obtener más información sobre la función «Separar libro».
Artículos relacionados:
¿Cómo dividir un libro en archivos de Excel independientes?
¿Cómo exportar y guardar hojas o libros de trabajo como un nuevo libro en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos