如何在Excel中每一页的底部重复打印行？

默认情况下，Excel 提供了在顶部重复打印行的功能。但在某些情况下，您可能更希望在页面底部而不是顶部重复打印行。本文将向您展示一些小技巧。

使用 VBA 代码在底部重复打印行

使用 VBA 代码在底部重复打印行

您可以运行以下 VBA 代码，将指定的行插入到每一页的页脚中。然后，您可以在 Excel 中每一页的底部重复打印该行。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Application 窗口。

2. 在 Microsoft Visual Basic for Application 窗口中，点击 插入 > 模块。然后复制并粘贴以下 VBA 代码到模块窗口中。

VBA 代码：将指定行插入到每一页的页脚中

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. 按下 F5 键运行代码。随后会弹出一个 Kutools for Excel 对话框，请选择需要在每一页底部重复打印的行，然后点击 确定 按钮。

现在，指定的行内容已添加到当前工作表中每一页的页脚中。您可以开始打印该工作表。

备注：如果您想在整个工作簿的每一页底部重复打印所选内容，可以应用页脚功能将内容插入到所有工作表的页脚中。