如何在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 對話框，請選擇需要在每頁列印底部重複列印的行，然後點擊 確定 按鈕。

現在，指定的行內容已添加到當前工作表中每頁列印的頁尾中。您可以開始列印工作表。

備註：如果您想在整個工作簿的每頁底部重複列印所選內容，可以應用頁尾功能將內容插入所有工作表的頁尾中。