¿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 común en Excel, pero la función estándar de Buscar y Reemplazar solo funciona dentro de selecciones, hojas y libros de trabajo, no en encabezados y pies de página. En este artículo, presentaré un código macro para buscar y reemplazar valores en encabezados y pies de página.

Buscar y reemplazar en encabezado o pie de página con VBA

Buscar y reemplazar en encabezado o pie de página con VBA

1. Activa la hoja donde deseas buscar y reemplazar texto en el encabezado y pie de página, presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código VBA en el Módulo. Ver captura de pantalla:

VBA: Buscar y reemplazar en 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. Luego presiona F5 para ejecutar el código, luego aparecerá un cuadro de diálogo para que ingreses el texto que deseas buscar. Ver captura de pantalla:

4. Haz clic en Aceptar, y aparecerá otro cuadro de diálogo para ingresar el texto con el que deseas reemplazar. Ver captura de pantalla:

5. Haz clic en Aceptar. Ahora los valores “KTE” han sido reemplazados por “Kutools para Excel” en el encabezado y pie de página.

Consejo: Si deseas aplicar esto a todo el libro de trabajo, puedes usar el siguiente código 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