跳到主要內容

如何在Excel中每隔x行插入分頁符?

將分頁符插入工作表可能很容易。 有時,需要在每X行中插入分頁符以進行整齊打印,您該怎麼辦? 在這裡,我介紹了幾種解決Excel中此問題的方法。


在Excel中使用VBA每X行插入分頁符

也許您不熟悉之前運行的VBA,但是通過以下步驟,您可能知道如何運行VBA在每X行中插入一個分頁符。 在這裡,我將每3行插入一個分頁符。

1。 按 Alt + F11鍵 顯示 Microsoft Visual Basic for Applications 窗口。

2。 在窗口中,單擊 插入 > 模塊 以顯示新的模塊窗口,然後將以下VBA代碼複製到模塊窗口中。

VBA:在工作表的每X行中插入分頁符。

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3。 點擊 按鈕,並彈出一個對話框,供您指定要在其中插入分頁符的每X行。在這裡,我每3行插入分頁符。 看截圖:
文檔插入分頁符-x-rows-1

4。 點擊 OK,然後將在每X行中插入一個分頁符。

在活動工作表中的第(n)行中快速插入分頁符

通常我們點擊一下即可插入一個分頁符 頁面佈局 > 休息 > 插入分頁符。 但是通過這種方式,在工作表中批量插入多個分頁符太麻煩了,例如您需要在每行插入一個分頁符以在單獨的頁面中打印每一行。 別擔心! Kutools for Excel的 每行插入分頁符 實用程序可以幫助您輕鬆存檔!


廣告插入分頁符每行3

使用Kutools for Excel在每x行之後批量插入頁面中斷

如果您已安裝Kutools for Excel,則其 拆分為列 該實用程序可以幫助您在每x行後批量插入多個分頁符,並在Excel中輕鬆地在每個頁面中保留標題。

Excel的Kutools - 包含 300 多個 Excel 基本工具。 享受全功能 30 天免費試用,無需信用卡! 現在下載!

1。 點擊 拆分為列 Kutools 加 標籤。

2。 在打開的“拆分為列”對話框中,您需要:

(1)單擊瀏覽按鈕  ,在 職稱範圍 框,然後在指定範圍內選擇標題行,您將批量插入分頁符。
(2)單擊瀏覽按鈕 ,在 日期範圍 框,然後選擇要批量插入分頁符的範圍。
(3)在 每頁打印的行數 框中,輸入一個數字。 (尖端:例如,如果您需要在每3行後插入分頁符,請在框中輸入3; 如果您需要在每行之後設置惰性分頁符,請輸入1。)
(4)在 段數 框。

3。 點擊 Ok 按鈕。

現在,您將看到該範圍被複製到一個新的工作表中,並且每隔x行在保留範圍標題的情況下添加分頁符。 您還可以通過點擊切換到分頁預覽視圖 瀏覽 > 分頁預覽 查看這些分頁符。 請參閱下面的屏幕截圖。

Excel的Kutools - 使用 300 多種基本工具增強 Excel 功能。 享受全功能 30 天免費試用,無需信用卡! 立即行動吧!


使用Kutools for Excel在每x行之後插入分頁符

Kutools for Excel開發了另一個插入每行分頁實用程序,專門用於輕鬆在每x行後插入分頁符。

Excel的Kutools - 包含 300 多個 Excel 基本工具。 享受全功能 30 天免費試用,無需信用卡! 現在下載!

1。 選擇您要在每x行後插入分頁符的範圍,然後單擊 打印 > 每行插入分頁符 Kutools 加 標籤。

2。 在打開的“每行插入分頁符”對話框中,指定插入分頁符的行間隔,然後單擊 Ok 按鈕。

然後,您將看到以指定的行間隔一次插入分頁符。

Excel的Kutools - 使用 300 多種基本工具增強 Excel 功能。 享受全功能 30 天免費試用,無需信用卡! 立即行動吧!


演示:在Excel中每隔x行插入分頁符


Excel的Kutools:超過 300 個方便的工具觸手可及! 立即開始 30 天免費試用,沒有任何功能限制。 現在就下載!

相關文章:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear extendoffice.com
I would like to send feedback about feature: Print > Insert Page Break Every Row.

VBA Code:
Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub


When you use this function, you can only enter one variables is xRow.
So this feature will be almost useless because it is not flexible. Not all data start from Row 1, not to mention data usually is table and has Header row.

I think this feature should have another variable is xFirstRow, so that you can define the first row of data:
xFirstRow = Application.InputBox("First Row", xTitleId, "", Type:=1)

And the formula should be:
For i = xFirstRow + xRow + 1 To xLastrow Step xRow

Hopefully this feature will be upgraded in later versions.
Thanks,
Tuyen
This comment was minimized by the moderator on the site
Hi, Thanks a lot for the code. But when I press Cancel or x on the input box; the excel file crashes. Can you please help to resolve this issue.
This comment was minimized by the moderator on the site
Thanks a lot from Istanbul / Turkey :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations