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

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

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

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

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

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口对话框，单击 插页 > 模块。 然后将下面的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 对话框，请在每个打印页面的底部选择需要重复打印的行，然后单击 OK 按钮。

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

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