Note: The other languages of the website are Google-translated. Back to English

如何在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 按鈕。

現在,將指定的行內容添加到當前工作表中每個打印頁面的頁腳中。 您可以開始打印工作表。

備註:如果要在整個工作簿的每一頁底部重複打印所選內容,則可以應用頁腳功能以將內容插入所有工作表的頁腳中。


在Excel中的第n行中輕鬆重複標題行:

Excel的Kutools's 插入標題行 實用程序可以幫助您快速將標題行插入Excel中選定範圍內的第n行之前,如下所示。
立即下載並試用! (30-天免費試用)


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (11)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
感謝宏分享。 它符合我的目的。 非常感謝。
網站主持人對此評論進行了最小化
非常感謝。 這個宏符合我的目的,感謝創建者和分享宏的人
網站主持人對此評論進行了最小化
感謝您分享宏以重複頁面底部的行。 是否可以將此宏修改為也可以使用格式重複選定的行。在提供的宏中,只有值在每頁底部重複,我期待在頁面底部也複製格式。
網站主持人對此評論進行了最小化
感謝分享。 與“打印標題”選項(包括行和自動頁碼)相同,VBA 代碼是否有可能重複頁腳。 如果可能,請幫助我。
網站主持人對此評論進行了最小化
非常感謝...
它對我幫助很大。
網站主持人對此評論進行了最小化
嗨,
我嘗試了幾次,但它不起作用。 請指教。
網站主持人對此評論進行了最小化
美好的一天,
感謝您的評論。 您使用哪個 Office 版本?
網站主持人對此評論進行了最小化
如果可以的話,我使用 Office365 但它不起作用。 嘗試將視圖置於頁面佈局模式無濟於事。 希望你能幫忙。 謝謝。
網站主持人對此評論進行了最小化
嗨,

當我啟動宏並選擇所需的行時,當我嘗試打印時它不起作用。 這會是什麼?
使用 Office 365。

謝謝,
網站主持人對此評論進行了最小化
嗨,

我一直在嘗試使用上面的代碼,但是當我嘗試打印代碼時它不起作用。 我遵循了上述所有步驟,它沒有給我任何錯誤。
我正在使用office 365。有什麼提示嗎?

提前感謝,
網站主持人對此評論進行了最小化
你好,
您好,選中的行將被插入到頁腳,您需要切換到 Page Layout 視圖查看結果。 感謝您的評論。
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護