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

网友投稿 445 2023-12-28

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

在我们的日常工作中，通常会先找到一个特定的值然后在Excel中用另一个值替换，但是在Excel中，“查找和替换”功能在选择区，工作表和工作簿中效果很好，但在页眉和页脚中找不到并替换。在本文中，我介绍了一个宏代码，用于查找和替换页眉和页脚中的值。

在VBA中查找并替换页眉或页脚

1.在页眉和页脚中启用要查找和替换的工作表，然后按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。

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

Copy

3.然后按 F5

键运行代码，然后会弹出一个对话框，供您输入要查找的文本。看截图：

4。点击 OK

，然后弹出另一个对话框，输入您要替换的文本。看截图：

5。点击 OK。现在的价值观 “ KTE” 已被替换为 “Kutools for Excel=

在页眉和页脚中。

Tips:：如果您想使用整个工作簿，则可以使用下面的宏代码。

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

Copy

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？轻松批量导入、导出、组合和调整数据。