Como encontrar e substituir no cabeçalho ou rodapé no Excel?

Encontrar um valor específico e substituí-lo por outro é uma tarefa comum no Excel, mas a função de Localizar e Substituir padrão funciona apenas dentro de seleções, planilhas e pastas de trabalho, não em cabeçalhos e rodapés. Neste artigo, vou apresentar um código de macro para encontrar e substituir valores em cabeçalhos e rodapés.

Encontrar e substituir no cabeçalho ou rodapé com VBA

Encontrar e substituir no cabeçalho ou rodapé com VBA

1. Ative a planilha onde você deseja encontrar e substituir texto no cabeçalho e rodapé, pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código VBA abaixo no Módulo. Veja a captura de tela:

VBA: Encontrar e substituir no cabeçalho e rodapé

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. Em seguida, pressione F5 para executar o código, depois disso, uma caixa de diálogo aparecerá para que você insira o texto que deseja encontrar. Veja a captura de tela:

4. Clique OK, e outra caixa de diálogo aparece para inserir o texto pelo qual deseja substituir. Veja a captura de tela:

5. Clique OKAgora os valores “KTE” foram substituídos por “Kutools para Excel” no cabeçalho e rodapé.

Dica: Se você quiser aplicar isso à pasta de trabalho inteira, pode usar o código de macro abaixo.

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