如何查找和替换Excel中的页眉或页脚？

查找特定值，然后用Excel中的另一个值替换在我们的日常工作中很常见，但在Excel中，查找和替换功能在选择，工作表和工作簿中运行良好，但在页眉和页脚中找不到和替换。在这篇文章中，我介绍一个宏代码来查找和替换页眉和页脚中的值。

用VBA查找并替换页眉或页脚

导航窗格 - 查找和替换

Kutools for Excel先进的 查找和替换 功能，可以帮你找到和
替换多个工作表和工作簿中的值。

用VBA查找并替换页眉或页脚

惊人！在Excel中使用高效标签，如Chrome，Firefox和Safari！

节省50％的时间，每天为您减少数千次鼠标点击！

1。启用要查找并替换页眉和页脚的工作表，按 Alt + F11键 键打开 Microsoft Visual Basic for Applications 窗口。

2。点击插页 > 模块，并将VBA代码粘贴到模块下面。看截图：

VBA：查找并替换页眉和页脚

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。然后按 F5 键运行代码，然后出现一个对话框，让您输入要查找的文本。看截图：

4。点击 OK，另一个对话框弹出，输入要替换的文本。看截图：

5。点击 OK。现在的价值 “KTE” 已被替换 “Excel的Kutools” 在页眉和页脚。

小技巧：如果要为整个工作簿工作，可以使用下面的宏代码。