Excel中提供的非常有用的工具之一是“查找和替换”，它使您可以查找和更改存储在单元格中的信息。但是，查找和替换不起作用的一个地方是存储在工作表的页眉或页脚中的信息。

处理在页眉或页脚中查找和替换信息的唯一方法是使用宏。访问页眉和页脚各个部分中存储的内容，检查要查找的内容，然后将其替换为新文本，这是一项非常琐碎的任务。下面的宏提供了一个示例。

Sub FnR_HF()         Dim sWhat As String, sReplacment As String     Const csTITLE As String = "Find and Replace"



sWhat = InputBox("Replace what", csTITLE)

If Len(sWhat) = 0 Then Exit Sub     sReplacment = InputBox("With what", csTITLE)



With ActiveSheet.PageSetup         ' Substitute Header/Footer values         .LeftHeader = Application.WorksheetFunction.Substitute( _                       .LeftHeader, sWhat, sReplacment)

.CenterHeader = Application.WorksheetFunction.Substitute( _                         .CenterHeader, sWhat, sReplacment)

.RightHeader = Application.WorksheetFunction.Substitute( _                        .RightHeader, sWhat, sReplacment)

.LeftFooter = Application.WorksheetFunction.Substitute( _                       .LeftFooter, sWhat, sReplacment)

.CenterFooter = Application.WorksheetFunction.Substitute( _                         .CenterFooter, sWhat, sReplacment)

.RightFooter = Application.WorksheetFunction.Substitute( _                        .RightFooter, sWhat, sReplacment)

End With End Sub

请注意宏如何在页眉的所有三个部分以及页脚的所有三个部分中进行替换。

如果您不想使用自己的宏，或者想要功能更全的Excel查找和替换，则可以考虑使用Excel MVP Jan Karel Pieterse提供的免费FlexFind加载项：

http://www.jkp-ads.com/officemarketplaceff-en.asp

这会定期添加搜索，但还会搜索很多其他区域，包括页眉和页脚。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（3928）适用于Microsoft Excel 97、2000、2002和2003。可以在Excel的功能区界面（Excel 2007及更高版本）中找到本技巧的版本：

在标题中查找和替换。