也許您不熟悉之前運行的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行插入分頁符。 看截圖：

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

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

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

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

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

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

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

3。 點擊 Ok 按鈕。

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

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

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

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

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