如何在 Excel 中将单元格的值插入页眉或页脚？
在 Microsoft Excel 中，您可以轻松利用内置功能将文件路径、文件名、当前日期或其他系统信息插入页眉或页脚。然而，在某些场景下，您可能希望使用特定单元格中的实际内容作为页眉或页脚——而 Excel 的标准界面并未直接支持这一功能。因此，用户常会提出以下问题：如何将单元格的值插入工作表的页眉或页脚？这一需求在准备报告、表单或导出数据时尤为常见，例如希望在打印时动态显示客户名称或自定义日期，确保每份输出都包含来自工作表本身的最新上下文信息。以下解决方案针对该需求，分别介绍了 VBA 和第三方工具两种实现方式，并说明了各自的最佳适用场景。
插入文档信息通过 Kutools for Excel 插入页眉/页脚
使用 VBA 代码将单元格值放入单个工作表的页眉或页脚
若希望在当前工作表的页眉或页脚中显示特定单元格的内容，Excel 的标准页眉/页脚功能无法满足此需求，但您可通过一个简单的 VBA 宏轻松实现。
在运行任何 VBA 代码前，请务必备份工作簿——宏会修改对象且操作不可撤销。同时，请确保 Excel 的设置已启用宏运行权限。
1. 激活您希望在页眉或页脚中插入单元格值的工作表，然后按 ALT + F11 打开 Microsoft Visual Basic for Applications 窗口。
2. 单击插入> 模块，然后将以下代码粘贴到新建的模块窗口中。
VBA 代码：将指定单元格值放入单个工作表的页眉
Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub
3. 按 F5 键（或单击运行按钮）即可执行此宏，系统将弹出对话框，提示您选择用于页眉的单元格。
4. 选择单元格并单击确定后，所选单元格的值将被插入到当前工作表页眉的左侧。要查看页眉，请转至文件> 打印（或使用）页面布局视图）。示例如下：
注意：
- 如果希望在页脚（而非页眉）中显示单元格内容，请使用以下代码。操作步骤完全相同——只需将此代码粘贴到模块中并运行即可。
VBA 代码：将指定单元格值放入单个工作表的页脚
Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub
- 要更改位置，请将代码中的 LeftHeader 或 LeftFooter 替换为 CenterHeader、RightHeader、CenterFooter 或 RightFooter（视需要而定）。例如，若要在页眉中间插入值，请将
LeftHeader改为CenterHeader。 - 运行脚本前，请务必确保所引用的单元格内容有效；若引用的是空白单元格，生成的页眉/页脚也将为空。
- 运行宏后，若修改了源单元格，页眉/页脚将不会自动更新；您需重新运行宏，以刷新所显示的信息。
- 当您希望在无需频繁更新的情况下自动实现“单元格到页眉”操作，或在每份打印输出中使用包含动态内容的模板时，推荐采用此 VBA 方法。
- 如果遇到“宏已被禁用”警告，请确保在文件 > 选项 > 信任中心 中启用了宏设置。
使用 VBA 代码将单元格值放入所有工作表的页眉或页脚
当您需要将特定单元格的值用作整个工作簿所有工作表的页眉或页脚时，逐个运行前述代码会非常耗时。此时，您可以使用一个专为此目的设计的 VBA 宏，一键将所选单元格的内容批量插入到工作簿中每个工作表的页眉或页脚中——这在分发要求全文档页眉/页脚信息统一的报告时尤为常见。
1. 打开要应用更改的工作簿，按 ALT + F11 即可启动 Visual Basic for Applications 窗口。
2. 在 VBA 编辑器中，单击插入> 模块，然后将以下宏代码复制并粘贴到模块窗口中。
VBA 代码：将指定单元格值放入所有工作表的页脚
Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub
3. 按 F5 运行此宏，系统将弹出对话框，供您选择目标单元格，其值将显示在每个工作表的页脚中。
4. 选择单元格并单击确定后，该单元格的值将被插入到工作簿中每个工作表页脚的左侧。您可前往文件> 打印 查看页脚设置。
注意：
- 若要在所有工作表的页眉中使用单元格值，请改用以下代码。输入并执行代码的流程完全相同：
VBA 代码：将指定单元格值放入所有工作表的页眉
Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub
- 若要在页眉/页脚的居中或右侧插入值，只需将脚本中的 LeftHeader/LeftFooter 替换为 CenterHeader/CenterFooter 或 RightHeader/RightFooter 即可。
- 请注意，通过 VBA 宏进行的更改无法撤销。若结果不符合预期，请务必提前保存文档，以免数据丢失。
- 此方法最适合所有工作表均采用相同页眉/页脚设置的工作簿。若各工作表需使用不同内容，建议在每个工作表上分别运行单工作表宏。
- 若页眉/页脚未按预期更新，请确保已关闭“工作表保护”或“工作簿保护”。
通过插入文档信息将 Kutools for Excel 插入页眉/页脚
当您希望快速、灵活地将文件相关信息（如工作表名称、工作簿名称或文件路径）插入页眉或页脚时，Kutools for Excel 提供了名为插入工作簿信息的专用工具。无论您偏好无需代码的解决方案、需要批量处理，还是希望避免手动输入带来的出错风险并快速插入多个内置文档属性，此工具都能轻松胜任。对于不希望接触 VBA 或需定期根据工作簿元数据更新页眉/页脚的用户，Kutools 提供了高效便捷的操作方式！
在免费安装 Kutools for Excel 后，请按以下步骤操作：
1. 转到 KUTOOLS PLUS 选项卡，然后选择工作簿> 插入工作簿信息。
2. 在插入工作簿信息对话框中，于信息部分选择您希望插入的特定内容（例如工作簿路径、文件名、工作表名称等），然后勾选页眉或页脚，即可将其插入对应位置。
提示：您可以使用位置选项，在页眉或页脚中选择左侧、居中或右侧对齐。这对于结构化布局非常有帮助，例如将文件路径放在左侧，工作表名称置于中间。
3. 单击确定以应用您的设置。要查看效果，请切换至视图> 页面布局，或使用文件> 打印预览。
借助插入工作簿信息功能，您可将此类信息直接插入单元格或单元格区域中，轻松用于公式计算、内容显示或进一步的自动化任务。单击此处了解有关此实用工具的更多信息。
此方法特别适合希望轻松访问文档属性、又无需使用宏或公式的用户。相比手动编辑，Kutools 不仅能确保一致性，还能大幅节省时间，尤其适用于需要定期更新文档引用的用户。
如果页眉或页脚中的信息未自动更新，请检查工作簿是否设为“手动计算”——某些页眉/页脚需刷新文档才能显示最新数据。
手动将单元格内容复制到页眉/页脚对话框
如果您只需偶尔将页眉或页脚更新为单元格内容，并希望避免使用 VBA 和加载项，可先复制单元格值，再手动粘贴到页眉/页脚对话框中。在页面布局视图中双击页眉/页脚区域，然后按 Ctrl+V 粘贴单元格值。但此方法为手动操作——每次单元格值更新后，您都需重新手动更新页眉或页脚。
使用手动方法或打印标题方式时，请注意它们在实现“真正”页眉/页脚的动态更新方面能力有限，且每次底层信息变更时都需手动调整。相比之下，VBA 宏和 Kutools 等工具能提供高效、可重复的工作流，尤其适用于大型工作簿或自动化报表生成。若在使用 VBA 时遇到异常行为或错误，请务必检查宏安全设置，并排查工作表是否被锁定或受保护。使用第三方加载项前，请确认其来源可靠且与您的 Excel 版本兼容。处理敏感或关键文件时，运行宏前备份文件始终是明智之选。
演示：插入工作簿信息到单元格/页眉/页脚
相关文章：
如何在 Excel 中将文件名或路径插入到单元格、页眉或页脚中？
如何在 Excel 中插入或删除页眉、页脚以及页眉中的图片？
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱