Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako najti in zamenjati glavo ali nogo v Excelu?

Če želite poiskati določeno vrednost in nato zamenjati z drugo vrednostjo v Excelu, je običajno v našem vsakodnevnem delu, v Excel pa funkcija »Poišči in zamenjaj« dobro izbira pri izboru, listih in delovni zvezki, vendar ne more najti in zamenjati v glavi in ​​nogi. V tem članku uvajam makro kodo za iskanje in zamenjavo vrednosti v glavi in ​​nogi.

Poiščite in nadomestite v glavi ali nogo z VBA


dobroPodokno za krmarjenje - Poišči in zamenjaj

Kutools za ExcelNapreden je Poišči in zamenjaj lahko vam pomaga najti in
zamenjajo vrednost na več listih in delovnih zvezkih.
doc najdi in zamenjaj

puščica modra desno mehurček Poiščite in nadomestite v glavi ali nogo 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 > Moduli, in prilepite pod kodo VBA na modul. Prikaz slike:

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

doc najdi nadomestno glavo noge 1

3. Nato pritisnite F5 Če želite zagnati kodo, se za vnos besedila, ki ga želite najti, pojavi pogovorno okno. Prikaz slike:
doc najdi nadomestno glavo noge 2

4. klik OK, in še eno pogovorno okno za vnos besedila, ki ga želite zamenjati. Prikaz slike:
doc najdi nadomestno glavo noge 3

5. klik OK. Zdaj vrednosti "KTE" so bili zamenjani z "Kutools for Excel" v glavi in ​​nogi.
doc najdi nadomestno glavo noge 4

Nasvet: Če želite delati za celotno delovno knjižico, lahko uporabite spodnjo makro kodo.

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

z Kutools za ExcelJe Vstavite informacije o delovnem zvezku uporabniško ime, lahko vstavite uporabniško ime, delovno ime, pot delovne knjige in tako naprej v nogo ali glavo glave aktivne liste. Prikaz slike:
doc najdi nadomestno glavo noge 5

doc prenesi 1



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Vijay · 1 years ago
    Dear all, Please advise me how to modify above VBA code to search and replace in complete WORKBOOK headers/footers. Thanks in advance
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      About your question, I have add the new VBA code in this article which can find and replace headers/footers in the whole wokrbook.