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

對您來說，將分頁符插入工作表可能既容易又簡單。有時候，為了整齊列印，需要每隔 X 行插入分頁符，該怎麼辦呢？在此我介紹幾種方法來解決這個問題。

• 使用 VBA 在 Excel 中每隔 X 行插入分頁符
• 批次插入每隔 x 行的分頁符
• 批次插入每隔 x 行的分頁符並在每 x 行上方添加行標題

使用 VBA 在 Excel 中每隔 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 行插入分頁符。請參見截圖：

4. 點擊 確定，然後它將每隔 X 行插入分頁符。

使用 Kutools for Excel 批量插入每隔 x 行的分頁符

如果您已安裝 Kutools for Excel，其「資料分欄」功能可以幫助您在保持每頁標題的情況下，輕鬆地每隔 x 行批量插入多個分頁符。

1. 點擊 Kutools Plus 標籤上的 資料分欄。

2在打開的「資料分欄」對話框中，您需要：

(1) 點擊 瀏覽 按鈕 於 標題區域 方框內，並選擇指定範圍內的標題行，您將批量插入分頁符。
(2) 點擊 瀏覽 按鈕 於 日期範圍 方框內，並選擇您要批量插入分頁符的範圍。
(3) 在 每頁行數 方框內輸入數字。（提示：例如，如果需要每隔 3 行插入分頁符，請在方框內輸入 3；如果需要每隔一行插入分頁符，請輸入 1。）
(4) 在 每頁欄數 方框內輸入 1。

3. 點擊 確定 按鈕。

現在您會看到範圍被複製到新工作表中，並且每隔 x 行添加了分頁符，同時保留範圍標題。您也可以通過點擊 檢視 > 分頁預覽 切換到分頁預覽檢視來查看這些分頁符。請參見下方截圖。

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

Kutools for Excel 開發了另一個「每隔一行插入分頁符」工具，專門用於輕鬆在每隔 x 行後插入分頁符。

1. 選擇您將每隔 x 行插入分頁符的範圍，並點擊 列印 > 每隔一行插入分頁符 於 Kutools Plus 標籤上。

2. 在打開的「每隔一行插入分頁符」對話框中，指定您將插入分頁符的行間隔，並點擊 確定 按鈕。

然後您會看到分頁符立即插入到指定的行間隔位置。

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

相關文章：

• 在 Excel 中插入或刪除分頁符