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

对你来说，在工作表中插入分页符可能既简单又容易。有时，为了整齐打印，需要每隔X行插入分页符，你该怎么做呢？在这里，我将介绍几种方法来解决Excel中的这个问题。

• 使用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中插入或删除分页符