如何将单元格值放在Excel中的页眉/页脚中？

我们可以使用Excel的功能轻松插入包含文件路径，文件名，当前日期或其他信息的页眉或页脚，但是有时，我们想使用单元格值作为Excel中的页眉或页脚。我们如何将单元格的内容放入工作簿的页眉或页脚中？

使用VBA代码将单元格值放在工作表的页眉或页脚中

使用VBA代码将单元格值放在所有工作表的页眉或页脚中

使用Kutools for Excel将文件信息插入页眉/页脚

如果要将单元格内容放在当前工作表的页眉或页脚中，则以下VBA代码可以为您提供帮助。请执行以下步骤：

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 键以运行该代码，将弹出一个对话框，提醒您选择一个要将其内容放入标题的单元格。 doc-insert-cell-value-header1

4。然后点击 OK，此指定的单元格值已插入到当前工作表的左侧标题中。您可以通过单击查看标题文件 > 打印。看截图： doc-insert-cell-value-header1

笔记：

1.如果要将单元格内容用作活动工作表的页脚，则可以应用以下代码：

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

2.您也可以将上述代码用于将单元格值插入右侧的页眉/页脚或中心页眉/页脚，只需替换 左标题 / 左脚同 正确的标题 / 右脚 or 中心头 / 中心脚 在代码中。

有时，您想将带有选定单元格内容的页眉或页脚插入到打开的工作簿的所有工作表中，使用上述代码，您需要一次又一次地重复它们。在这种情况下，下面的VBA代码可以立即将单元格内容添加到整个工作簿的页眉或页脚中。

1。激活您要在其中插入带有单元格值的页眉或页脚的工作簿，然后按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications窗口.

2。点击插页 > 模块，然后将以下代码粘贴到 模块窗口.

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 键以执行此代码，将弹出一个对话框，提醒您选择一个单元格，将其内容放在整个工作簿的页脚中。

doc-insert-cell-value-header1

4。然后点击 OK，此选定的单元格值已添加到所有工作表的左脚。您可以通过单击查看页脚文件 > 打印。看截图：

doc-insert-cell-value-header1

笔记：

1.如果要将单元格内容用作整个工作簿的标题，则可以应用以下代码：

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

2.替代 右页眉/页脚 or 中心页眉/页脚 提供 左页眉/页脚 如果您希望页眉或页脚的位置不同，请在上述代码中使用。

如果要在页眉或页脚中插入文件管理器信息，例如工作表/工作簿名称，工作簿路径等，则可以使用 Kutools for Excel“ 插入工作簿信息 实用程序，如果您已经安装了Kutools for Excel。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。
免费下载免费全功能 30 天

后免费安装 Kutools for Excel，请执行以下操作：

1。点击 Kutools 加 > 工作簿 > 插入工作簿信息。看截图：
文档1

2。在里面 插入工作簿信息 对话框中，检查您需要在下面插入的信息资讯部分，并检查 排气歧管 or 页脚随你便。

提示： 您可以在页眉或页脚的三个位置插入信息：中心，左侧或右侧。
doc插入工作簿路径1

3。点击 Ok。那你可以去查看 > 页面布局 查看标题。
文档3

使用“插入工作簿信息”，您还可以将文件信息插入到一个或多个单元格中。单击此处了解有关此实用程序的更多信息。

小费。如果您想将一个工作簿快速拆分为多个工作簿/ pdf文件或csv文件，请尝试使用Kutools for Excel的 拆分工作簿 如以下屏幕截图所示。功能齐全，不受限制 30 天，请下载并立即免费试用。

相关文章：

如何在Excel中的单元格/页眉或页脚中插入文件名或路径？

如何在Excel中插入和删除页眉，页脚和页眉图片？

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西；加密单元带密码创建邮件列表并发送电子邮件...
超级公式栏（轻松编辑多行文本和公式）；阅读版式（轻松读取和编辑大量单元格）；粘贴到过滤范围...
合并单元格/行/列不会丢失数据；拆分单元格内容；合并重复的行/列...防止细胞重复；比较范围...
选择重复或唯一行; 选择空白行（所有单元格都是空的）；超级查找和模糊查找在许多工作簿中；随机选择...
确切的副本多个单元格，无需更改公式参考；自动创建参考到多张纸；插入项目符号，复选框等...
提取文字，添加文本，按位置删除，删除空间; 创建和打印分页小计；在单元格内容和注释之间转换...
超级滤镜（将过滤方案保存并应用于其他工作表）；高级排序按月/周/日，频率及更多；特殊过滤器用粗体，斜体...
结合工作簿和工作表; 根据关键列合并表；将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。在您的企业或组织中轻松部署。完整功能 30 天免费试用。 60 天退款保证。

阅读更多免费下载... 采购...

Office选项卡为Office带来了选项卡式界面，使您的工作更加轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多免费下载... 采购...

注释 (9)

还没有评分。成为第一位评论！

杰弗里·赫伯特

大约7年前

#13641

该评论由网站上的主持人最小化

我需要将一个有效的工资单日期范围插入到多个工作表中。用户打开工资单日期表，输入日期范围，然后在打印之前更新工作簿中的所有表。以下是我如何能够将多个单元格插入到与 2010 兼容的代码更少的范围中： Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup。 RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub

赛义德·穆罕默德

大约7年前

#13803

该评论由网站上的主持人最小化

我想在标题中插入四个单元格。这个 VB 仅适用于一个单元格。我该怎么做。谢谢

里德万赛义德·穆罕默德

大约4年前

#13804

该评论由网站上的主持人最小化

您可以尝试将 rht 四个单元格的值连接到一个单元格中，然后将单个单元格用作标题。

克莱尔

大约7年前

#14786

该评论由网站上的主持人最小化

您好，有没有一种方法可以添加考虑应用过滤器的单元格值？例如... A1 = 星期一 A2 = 星期二 A3 = 星期三。使用 VBA 代码显示单元格 A1 最初可以工作，但是一旦我在一周中的几天应用过滤器，“顶部”单元格值不再是 A1。有没有办法获取变量？非常感谢，

米奇

大约3年前

#29670

该评论由网站上的主持人最小化

当使用您的“VBA 代码：将指定的单元格值放在所有工作表的标题中”时，我希望放置的值被格式化：Tahoma，粗体，字体大小为 12。
如何将其添加到您的代码中？

达尼

大约3年前

#30000

该评论由网站上的主持人最小化

嗨，

这似乎只工作一次。
如果单元格的值发生变化怎么办？
有没有办法链接单元格，以便在单元格值更改时标题更改？

我有一本工作簿，里面有三张纸。

表 1 标记为“删除表” - 我们发送到仓库的表，其中包含订单的颚化信息
表 2 标有“OA” - 我对客户的订单确认，它从第一张表中提取大部分数据，包括我需要在我的标题中包含的订单号。所以我试图用订单号（F5）将标题链接到此页面中的单元格，该订单号从第一个工作表（“删除表”）中的（C7）获取它的值
表 3 标记为“发票 - 发票也从第一张表中提取大部分相同的信息，这也需要标题包含从“删除表”中的 (C5) 获取的该表的值 (F7)

尼尔

大约4个月前

#40034

该评论由网站上的主持人最小化

这似乎没有建立动态链接，即输入到标题中的值不会在单元格的值发生变化时发生变化。那么 VBA 代码的目的是什么，当复制/粘贴会做同样的事情时？

天阳尼尔

大约4个月前

#40106

该评论由网站上的主持人最小化

你好，尼尔，
如果要将单元格值动态链接到页眉或页脚，请应用以下 VBA 代码：

备注：您应该将代码插入工作表代码而不是普通模块。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub

请试一试，希望对你有帮助

DJ 天阳

大约1个月之前

#42219

该评论由网站上的主持人最小化

maksudnya bagaimana？

这里还没有评论

请用英文发表您的意见

以访客身份发帖

名字（必填）

电子邮件（必填）

评价此帖子：

重设

0 产品特性

我同意附带条约