¿Cómo condicionar la inserción de saltos de página en Excel?

Suponiendo que necesita insertar saltos de página mientras se cambian los valores en la columna A como se muestra a continuación, ¿cómo podría manejarlo en Excel? Generalmente, puede insertar los saltos de página uno por uno manualmente, pero aquí, presento algunos trucos para resolver esto rápidamente.

Uso de la función de subtotal para insertar saltos de página

Usando código VBA para insertar saltos de página

Insertar salto de página en cada fila para insertar salto de página en enésimas filas

Uso de la función de subtotal para insertar saltos de página

En Excel, la función Subtotal puede agregar saltos de página según el grupo.

1. Seleccione los datos a los que desea agregar saltos de página, haga clic en Datos > Total.

2. En el Total cuadro de diálogo, seleccione la columna en la que desea insertar el salto de página en función de su valor en En cada cambio en la lista desplegable, luego elija la función que desea utilizar Utilice la función lista, luego revisa Salto de página entre grupos casilla de verificación y otras opciones que necesite.

3. Hacer clic OK. Ahora los datos se han agrupado y se han agregado saltos de página.

Usando código VBA para insertar saltos de página

Si no desea agregar grupos a los datos, puede probar el código VBA para manejar este trabajo.

1. Prensa Alt + F11 teclas para mostrar Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Módulo, copie y pegue el código siguiente en la nueva ventana del módulo.

VBA: inserta saltos de página cuando cambian los datos

Sub PageBreak()
'UpdatebyExtendOffice20181101
    Dim xSRg As Range
    Dim xRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    For Each xRg In xSRg
        ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
        If xRg.Value <> xRg.Offset(-1, 0).Value Then
            ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
        End If
    Next xRg
Application.ScreenUpdating = True
End Sub

3. Prensa F5 clave, aparece un cuadro de diálogo para recordarle que seleccione la columna clave en la que se inserta el salto de página.

4. Hacer clic OK, ahora se han insertado los saltos de página.

Insertar salto de página en cada fila para insertar salto de página en enésimas filas

Si desea insertar saltos de página en un intervalo fijo, puede utilizar Kutools for Excel, Insertar página en cada fila utilidad para manejar rápidamente el problema.

Después de instalar Kutools para Excel, haga lo siguiente:（¡Descarga gratis Kutools para Excel ahora!)

1. Seleccione los datos y haga clic en Kutools Plus > Impresión > Insertar salto de página en cada fila.

2. En el Insertar salto de página en cada fila cuadro de diálogo, escriba el intervalo que necesite.

3. Hacer clic OK > OK para cerrar los diálogos, se han insertado los saltos de página en cada 2 filas.

  Insertar página Saltar cada enésima fila

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-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

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!

Leer más ... Descarga gratis... Compra...