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

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

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

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

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

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

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

如果要将单元格内容放在当前工作表的页眉或页脚中，则以下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 键以运行该代码，将弹出一个对话框，提醒您选择一个要将其内容放入标题的单元格。

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

笔记：

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代码将单元格值放在所有工作表的页眉或页脚中

有时，您想将带有选定单元格内容的页眉或页脚插入到打开的工作簿的所有工作表中，使用上述代码，您需要一次又一次地重复它们。 在这种情况下，下面的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 键以执行此代码，将弹出一个对话框，提醒您选择一个单元格，将其内容放在整个工作簿的页脚中。

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

笔记：

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.

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。 

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

1。 点击 Kutools 加 > 工作簿 > 插入工作簿信息

。 看截图：

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

提示：

您可以在页眉或页脚的三个位置插入信息：中心，左侧或右侧。

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

查看标题。

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

 

在单元格/页眉/页脚中插入工作簿信息