Note: The other languages of the website are Google-translated. Back to English

¿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

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derecha 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 KutoolsforExcel 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:

doc-check-sheet-size1


flecha azul burbuja derecha 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:

doc-check-sheet-size1

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:

doc-check-sheet-size3
-1
doc-check-sheet-size4

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.

doc-check-sheet-size1

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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (9)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Muy útil. ¡¡Gracias!!
Este comentario fue minimizado por el moderador en el sitio
Gracias por proporcionar el fragmento de código al público. Es una de las mejores rutinas que encontré. Aquí hay algunos ajustes: 1) Agregue "Dim xIndex as Long" en la parte superior si está usando Option Explicit. 2) Agregue esto dentro del ciclo For para manejar las hojas ocultas (de lo contrario, falla): xWs.Visible = xlSheetVisible 3) Si tiene hojas de "gráfico" de página completa, debe copiar el código para el ciclo e iterar a través de la aplicación. Colección ActiveWorkbook.Charts. Si hace esto, cambie la declaración de xWs de "Hoja" a "Objeto". 4) Para un indicador de estado económico (o para problemas de depuración), agregue esta línea dentro del bucle For: Debug.Print "Calculating Worksheet Sizes, Sheet" & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Nombre
Este comentario fue minimizado por el moderador en el sitio
Hola, Ben, ¿podrías volver a pegar toda la cadena de texto con los elementos n.º 2 y n.º 4 de tu correo electrónico agregados? MI conocimiento de VBA es bastante limitado y no estoy seguro exactamente de dónde agregarlos en el ciclo For. Mi libro de trabajo tiene varias hojas ocultas y sigue fallando durante la ejecución de la macro. gracias, bob
Este comentario fue minimizado por el moderador en el sitio
Aquí hay una copia de la rutina con algunas mejoras que agregué. Tuve que dividirlo en varias publicaciones debido a los límites del sitio. Public Sub WorksheetSizes () 'Actualización 20140526' https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html<br />' ' BS 4/4/2016: Modificado para tener una barra de estado y formatear la salida. ' Se corrigieron las hojas ocultas que causaron que se bloquee. ' Soporte agregado para hojas de gráfico Dim xWs As Object ' Hoja de trabajo o gráfico Dim rng As Range Dim xOutWs As Worksheet Dim xOutFile As String Dim xOutName As String Dim xIndex As Long On Error GoTo ErrorHandler Application.Cursor = xlWait xOutName = "KutoolsforExcel" xOutFile = ThisWorkbook.Path & "\TempWb.xls" en caso de error Reanudar siguiente aplicación.DisplayAlerts = False Err = 0 Establecer xOutWs = Application.Worksheets(xOutName) Si Err = 0 Entonces xOutWs.Delete Err = 0 Finalizar si con 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 Debug.Print ThisWorkbook.Path For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name xOutName Then Application.StatusBar = "Calculando tamaños de hoja de trabajo, Hoja " & xIndex & " de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug.Print "Calculando W Tamaños de hoja de trabajo, Hoja " & xIndex & " de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' incluyen esto para que se pueda detectar CTRL+Break. '--- pegar romper ---
Este comentario fue minimizado por el moderador en el sitio
' Parte 2 de 3 '--- pausa para pegar --- xWs.Visible = xlSheetVisible ' xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.CopyQ Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook .Cerrar 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 ' Repita lo anterior para las hojas de gráficos. Para cada xWs en Application.ActiveWorkbook.Charts If xWs.Name xOutName Then Application.StatusBar = "Cálculo de tamaños de hoja de trabajo, Hoja " & xIndex & " de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Depuración. Imprima "Cálculo de tamaños de hoja de trabajo, Hoja " & xIndex & " de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' incluya esto para que se pueda detectar CTRL+Break. xWs.Visible = xlSheetVisible xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" 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 '--- pegar interrupción ---
Este comentario fue minimizado por el moderador en el sitio
' Parte 3 de 3 '--- pegar salto --- ' Dar formato a la hoja de salida Application.Sheets(xOutName).Activate Columns("B:B").Select Selection.NumberFormat = "#,##0_);( #,##0)" Columnas("A:B").Seleccionar columnas("A:B").Columna completa.Autoajustar rango("A1").Seleccionar ' Aún mejor, formatéelo como una tabla. ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B" & xIndex), , xlYes).Name = "WorksheetSizes" Application.ScreenUpdating = True Application.Application.DisplayAlerts = True Application.StatusBar = "" Application.Cursor = xlDefault Exit Sub ErrorHandler: MsgBox "Error #" & Err.Number & " - " & Err.Description & vbCrLf & "en procedimiento WorksheetSizes" End Sub
Este comentario fue minimizado por el moderador en el sitio
Muy Muy Muy Muy Muy útil.
Gracias !!
Este comentario fue minimizado por el moderador en el sitio
Gracias, muy útil,
Tenía un montón de fórmulas innecesarias en una hoja y simplemente eliminé que el archivo ahora funciona bien.
Todo esto sucede solo porque pude encontrar el tamaño de cada hoja,
Gracias de nuevo.

Anson
Este comentario fue minimizado por el moderador en el sitio
Probablemente debería agregar esto entre las líneas 9 y 10 en caso de que algunas hojas estén ocultas para evitar que el código se bloquee.
Para cada xWs en hojas: xWs.Visible = True: Siguiente
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL