Kako najti in zamenjati v glavi ali nogi v Excelu?

Najti določeno vrednost in jo nato nadomestiti z drugo vrednostjo v Excelu je običajno v našem vsakdanjem delu, toda v Excelu funkcija Najdi in zamenjaj dobro deluje pri izbiri, listih in delovnem zvezku, vendar je v glavi in ​​nogi ni mogoče najti in zamenjati. V tem članku predstavljam makro kodo za iskanje in zamenjavo vrednosti v glavi in ​​nogi.

Poiščite in zamenjajte v glavi ali nogi z VBA

Poiščite in zamenjajte v glavi ali nogi z VBA

1. Omogočite list, ki ga želite najti in zamenjati v glavi in ​​nogi, pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin prilepite pod kodo VBA v modul. Oglejte si posnetek zaslona:

VBA: Poiščite in zamenjajte v glavi in ​​nogi

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. Nato pritisnite F5 tipko za zagon kode, nato se prikaže pogovorno okno za vnos besedila, ki ga želite najti. Oglejte si posnetek zaslona:

4. klik OKin odpre se drugo pogovorno okno za vnos besedila, ki ga želite zamenjati. Oglejte si posnetek zaslona:

5. klik OK. Zdaj vrednosti "KTE" so bili zamenjani z "Kutools za Excel" v glavi in ​​nogi.

Nasvet: Če želite delati za celoten delovni zvezek, lahko uporabite spodnjo kodo makra.

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