¿Cómo verificar el tamaño de cada hoja de trabajo del libro de trabajo?
Supongamos que tiene un libro de trabajo grande que contiene varias hojas de trabajo, y ahora desea averiguar el tamaño de cada hoja de trabajo para determinar qué hoja debe reducirse. ¿Existen métodos rápidos para hacer frente a esta tarea?
Verifique el tamaño de cada hoja de trabajo con el código VBA
Verifique el tamaño de cada hoja de trabajo con Kutools para Excel
Verifique el tamaño de cada hoja de trabajo con el código VBA
Con el siguiente código VBA, puede obtener rápidamente el tamaño de cada hoja de trabajo en su libro de trabajo. Por favor haz lo siguiente:
1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: verifique el tamaño de cada hoja de trabajo en un libro de trabajo </ p>
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. Entonces presione F5 clave para ejecutar este código, y una nueva hoja de trabajo llamada KutoolsparaExcel se insertará en el libro de trabajo actual que contiene cada nombre de hoja de trabajo y tamaño de archivo, y la unidad es Bit. Ver captura de pantalla:
Verifique el tamaño de cada hoja de trabajo con Kutools para Excel
Si tiene Kutools for Excel, Con su Libro de trabajo dividido utilidad, puede dividir todo el libro en archivos separados y luego ir a la carpeta específica para verificar el tamaño de cada archivo.
Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora .
Después de instalar Kutools para Excel, siga los siguientes pasos:
1. Abra el libro de trabajo que desea verificar el tamaño de cada hoja de trabajo y haga clic en Empresa > Herramientas del libro de trabajo > Libro de trabajo dividido, ver captura de pantalla:
2. En la Libro de trabajo dividido cuadro de diálogo, verifique todas las hojas de trabajo y haga clic en Mini Split y luego especifique una carpeta para colocar los nuevos archivos del libro. Ver capturas de pantalla:
3. Y luego, cada hoja de trabajo de su libro de trabajo actual se guardará como un archivo de Excel separado, puede ir a su carpeta específica para verificar el tamaño de cada libro de trabajo.
Para saber más sobre esta función de Libro de trabajo dividido.
Artículos relacionados:
¿Cómo dividir un libro de trabajo para separar archivos de Excel en Excel?
¿Cómo exportar y guardar hojas y hojas de trabajo como un nuevo libro de trabajo en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!