KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo insertar el número de página en una celda, encabezado o pie de página en Excel?

AutorXiaoyang Fecha de modificación

Al imprimir un archivo de Excel, es posible que necesite insertar números de página para que el documento impreso quede ordenado y legible. En este artículo, le presento algunos trucos rápidos para añadirlos en una celda, en el encabezado o en el pie de página.

Insertar número de página en encabezado / pie de página en una hoja de cálculo

Insertar número de página en encabezado / pie de página en varias hojas de cálculo

Insertar número de página en una celda mediante código VBA

Eliminar todos los números de página de una vez en Excel


Insertar número de página en encabezado / pie de página en una hoja de cálculo

Normalmente, podemos insertar los números de página en el encabezado o pie de página rápidamente mediante la función Encabezado y pie de página, siga estos pasos:

1. Vaya a la hoja en la que quiera insertar los números de página en el encabezado o pie de página.

2. A continuación, haga clic en Insertar > Encabezado y pie de página, y su hoja cambiará a la vista de Diseño de página. Consulte la captura de pantalla:

una captura de pantalla que muestra cómo habilitar el encabezado y pie de página en la hoja de cálculo

3. Haga clic en el encabezado o pie de página donde quiera insertar el número de página; a continuación, aparecerá la pestaña Diseño con las Herramientas de encabezado y pie de página en la Cinta de opciones. A continuación, haga clic en Diseño > Número de página. Consulte la captura de pantalla:

una captura de pantalla de la inserción del número de página en el encabezado o pie de página

4. Verá el marcador de posición &[Page] en la sección seleccionada. Haga clic en cualquier lugar fuera del área de encabezado o pie de página para que aparezcan los números de página. Consulte la captura de pantalla:

una captura de pantalla que muestra el número de página en el encabezado o pie de página

5. Ahora puede volver a la vista normal haciendo clic en Vista > Normal, y al imprimir esta hoja, verá que los números de página se han insertado en el encabezado o pie de página que seleccionó.

Nota: si desea que los números de página aparezcan con el formato 1 de 15, 2 de 15, simplemente introduzca directamente esto en el cuadro del campo de encabezado o pie de página:&[Page] de &[Pages], consulte la captura de pantalla:

una captura de pantalla que muestra el número de página con el formato 'página de páginas' en el encabezado o pie de página


Insertar el nombre de la hoja, el nombre del archivo, la hora de creación o la hora de modificación en el encabezado, el pie de página o una celda:

Con la utilidad Kutools para Excel’s Insertar información del libro, puede insertar rápidamente el nombre de la hoja, el nombre del archivo, Ruta de archivo y nombre, Hora de Creación, Hora de Modificación y así sucesivamente en una celda, encabezado o pie de página según sus necesidades.¡Descargue y pruebe gratis Kutools para Excel ahora!

una captura de pantalla que muestra cómo insertar fácilmente información del libro en una celda, encabezado, pie de página...

Kutools para Excel: con más de 300 útiles complementos para Excel, pruébelos gratis sin limitaciones durante 30 días.¡Descargue y pruebe gratis ahora!


Insertar número de página en encabezado / pie de página en varias hojas de cálculo

El método anterior le permite insertar números de página en una sola hoja. Si desea incluirlos en todas las hojas del libro para que la numeración sea secuencial en todo el documento, siga estos pasos:

1.Seleccione todas las Pestañas de hoja, vaya a la pestaña Diseño de páginay haga clic en el icono del Botón del iniciador del cuadro de diálogodel grupo Configuración de página, consulte la captura de pantalla:

una captura de pantalla de la apertura del cuadro de diálogo Configurar página

2. En el cuadro de diálogo Configuración de página, haga clic en la pestaña Encabezado y pie de página y, a continuación, en Encabezado personalizado o Pie de página personalizado para configurar el encabezado o el pie de página que desee. Consulte la captura de pantalla:

una captura de pantalla del clic en el botón Encabezado personalizado o Pie de página personalizado según sea necesario

3. En el cuadro de diálogo Encabezado o Pie de página, defina la ubicación donde se insertarán los números de página haciendo clic en el cuadro Sección izquierda:, Sección central: o Sección derecha:, según necesite, y luego haga clic en el icono Insertar número de página; aparecerá el marcador de posición &[Page]. Consulte la captura de pantalla:

una captura de pantalla de la inserción del número de página en la ubicación que necesite

Nota:Introduzca esto en el cuadro del campo de encabezado o pie de página si desea que los números de página aparezcan como 1 de 45, 2 de 45…&[Page] de &[Pages]

4. Luego, haga clic en Aceptar > Aceptar para cerrar los cuadros de diálogo. Al imprimir este libro, verá en la vista previa de impresión que todos los números de página se han insertado de forma secuencial en el encabezado o pie de página.


Insertar número de página en una celda mediante código VBA

Es fácil insertar números de página en el encabezado o pie de página, pero si necesita colocarlos directamente en una celda de la hoja de cálculo, no hay una forma directa de hacerlo. El siguiente código VBA le ayudará a resolver este problema.

1. Haga clic en la celda donde quiera mostrar el número de página correspondiente.

2. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.

Código VBA: Insertar el número de página actual en una celda:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. A continuación, pulse la tecla F5 para ejecutar este código y el número de página correspondiente a esta celda aparecerá en la celda seleccionada. Consulte la captura de pantalla:

una captura de pantalla que muestra el número de página en una celda tras ejecutar el código VBA


Eliminar todos los números de página de una vez en Excel

Para eliminar todos los números de página, puede seguir estos pasos:

1. Seleccione todas las pestañas de hoja, vaya a la pestaña Diseño de página en la Cinta de opciones y, a continuación, haga clic en el icono del Botón del iniciador del cuadro de diálogo del grupo Configuración de página. Consulte la captura de pantalla:

una captura de pantalla que muestra cómo abrir el cuadro de diálogo Configurar página

2. En el cuadro de diálogo Configuración de página, haga clic en la pestaña Encabezado y pie de página y seleccione (ninguno) en la lista desplegable de Encabezado o Pie de página. Consulte la captura de pantalla:

una captura de pantalla de la eliminación de todos los números de página a la vez del encabezado o pie de página

3. Luego, haga clic en el botón Aceptar y todos los números de página se eliminarán del libro de inmediato.


Las mejores herramientas de productividad para Office

🤖KUTOOLS AI Asistente: Revolucione Análisis de datos basándose en:Ejecución Inteligente   |  Generar código|  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos|  Invocar Funciones mejoradas
Funciones populares:Buscar, resaltar o Marcar duplicados   |  Eliminar filas en blanco   |  Combinar Columnas o celdas sin perder datos   |   Redondeo sin usar fórmulas...
Super BUSCARV:Búsqueda vertical (VLookup) con múltiples criterios  |  Búsqueda vertical (VLookup) con múltiples valores  |   Búsqueda vertical (VLookup) entre varias hojas   |   Coincidencia difusa....
Lista desplegable avanzada:Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple....
Gestor de columnas:Añadir un número específico de columnas|Mover columnas|Alternar el estado de visibilidad de columnas ocultas|Comparar rangos y columnas...
Funciones destacadas:Cuadrícula de enfoque   |  Vista de diseño   |Barra de fórmulas mejorada   | Gestor de libros y hojas   |  Biblioteca de recursos(Texto automático)|  Selector de Fecha   |  Combinar Hojas de Cálculo  |  Cifrar/Descifrar celdas   | Enviar correos electrónicos desde una lista   |  Super Filtro   |   Filtro especial(Filtrar celdas con fuente en negrita/cursiva/tachado...) ...
Principales conjuntos de herramientas 15:12 Herramientasde texto(Agregar texto,Eliminar caracteres específicos, ...)|   50+Tiposde gráfico(Diagrama de Gantt, ...)|   40+ Fórmulas prácticas(Calcular la edad basada en la fecha de nacimiento, ...)|   19 Herramientasde inserción(Insertar Código QR,Insertar imagen desde ruta, ...)|   12 Herramientasde conversión(Convertir a palabras,Conversión de moneda, ...)|   7 Herramientasde combinación y división(Combinar filas avanzado,Dividir celdas, ...)|...y muchas más
Use Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y 40+ más idiomas.¡

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.

ExcelWordOutlookTabsPowerPoint
  • 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