¿Cómo buscar y reemplazar en el encabezado o pie de página en Excel?
Buscar un valor específico y reemplazarlo por otro es una tarea habitual en Excel, pero la función estándar Buscar y reemplazar solo opera dentro de selecciones, hojas y libros de trabajo, no en encabezados ni pies de página. En este artículo, te presento una macro que permite buscar y reemplazar valores directamente en encabezados y pies de página.
Buscar y reemplazar en el encabezado o pie de página con VBA
Buscar y reemplazar en el encabezado o pie de página con VBA
1. Active la hoja en la que desea buscar y reemplazar texto en el encabezado y pie de página y pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código VBA en el módulo. Vea la captura de pantalla:
VBA: Buscar y reemplazar en el encabezado y pie de página
Sub FnR_HF()
'UpdateByExtendoffice20160623
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
With ActiveSheet.PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
End Sub
3. A continuación, pulse la tecla F5 para ejecutar el código. Aparecerá un cuadro de diálogo en el que podrá introducir el texto que desea buscar. Vea la captura de pantalla:
4. Haga clic en Aceptar y aparecerá otro cuadro de diálogo para introducir el texto por el que desea reemplazarlo. Vea la captura de pantalla:
5. Haga clic en Aceptar. Ahora los valores “KTE” se han reemplazado por “Kutools para Excel” en el encabezado y el pie de página.
Consejo: si desea aplicarlo a todo el libro de trabajo, puede usar el siguiente código de macro.
Sub FnR_HF()
'UpdateByExtendoffice20171122
Dim I As Long
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
For I = 1 To ActiveWorkbook.Sheets.Count
With Sheets(I).PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
Next
End Sub
Las mejores herramientas de productividad para Office
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.
- 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