¿Cómo insertar saltos de página condicionales en Excel?
Supongamos que necesita insertar saltos de página mientras los valores cambian en la columna A, como se muestra en la siguiente captura de pantalla, ¿cómo podría manejarlo en Excel? Generalmente, puede insertar los saltos de página uno por uno manualmente, pero aquí le presento algunos trucos para resolver esto rápidamente.
Usar la función Subtotal para insertar saltos de página
Usar código VBA para insertar saltos de página
Marcar cambios para insertar saltos de página cuando los datos cambien
Insertar saltos de página cada cierto número de filas
Usar la función Subtotal para insertar saltos de página
En Excel, la función Subtotal puede agregar saltos de página basados en grupos.
1. Seleccione los datos a los que desea agregar saltos de página, haga clic en Datos > Subtotal.
2. En el cuadro de diálogo Subtotal seleccione la columna en la que desea insertar un salto de página según su valor en la lista desplegable 'En cada cambio', luego elija la función que desea usar desde Usar función lista, y marque la casilla Salto de página entre grupos y otras opciones según sea necesario.
3. Haga clic en Aceptar. Ahora los datos han sido agrupados y se han agregado saltos de página.
Usar código VBA para insertar saltos de página
Si no desea agregar grupos a los datos, puede intentar usar código VBA para manejar esta tarea.
1. Presione las teclas Alt + F11 para mostrar la ventana Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo, copie y pegue el siguiente código en la nueva ventana del Módulo.
VBA: Insertar saltos de página cuando los datos cambien
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. Presione la tecla F5 aparecerá un cuadro de diálogo recordándole que seleccione la columna clave en la que se insertará el salto de página.
4. Haga clic en Aceptar, ahora se han insertado los saltos de página.
Marcar diferencias para insertar saltos de página cuando los datos cambien
La función Marcar Diferencias de Kutools para Excel permite insertar saltos de página, filas en blanco, bordes inferiores o color de fondo cuando los datos cambian en Excel.
Después de instalar Kutools para Excel, siga los pasos a continuación:(¡Descarga gratuita de Kutools para Excel ahora!)
Haga clic en Kutools > Formato > Marcar Diferencias.
2. En el cuadro de diálogo Marcar diferencias por columna clave, complete los siguientes ajustes:
1) Haga clic en el icono de selección en la sección Rango seleccione el rango de datos (excluyendo los encabezados de columna)
2) Haga clic en el icono de selección en la sección Columna clave seleccione la columna en la que desea insertar un salto de página basado en el cambio correspondiente de datos (excluyendo los encabezados de columna).
3) Marque la opción Salto de página en la sección Opciones .
3. Haga clic en Aceptar.
Ahora se insertan saltos de página cuando los datos cambian en el rango seleccionado.
Insertar saltos de página cada cierto número de filas
Si desea insertar saltos de página en un intervalo fijo, puede usar la utilidad Insertar Página Cada Fila de Kutools para Excel para manejar rápidamente el problema.
Después de instalar Kutools para Excel, siga los pasos a continuación:(¡Descarga gratuita de Kutools para Excel ahora!)
1. Seleccione los datos y haga clic en Kutools Plus > Imprimir > Insertar Salto de Página Cada Fila.
2. En el cuadro de diálogo Insertar Salto de Página Cada Fila escriba el intervalo según sea necesario.
3. Haga clic en Aceptar > Aceptar para cerrar los cuadros de diálogo, los saltos de página se han insertado cada 2 filas.
Insertar salto de página cada N filas
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!