也许您不熟悉之前运行的VBA，但是通过以下步骤，您可能知道如何运行VBA在每X行中插入一个分页符。 在这里，我将每3行插入一个分页符。

1。 按 Alt + F11键 显示 Microsoft Visual Basic应用程序 窗口。

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）行中快速插入分页符

通常我们点击一​​下即可插入一个分页符 页面布局 > 休息 > 插入分页符。但这种方式在工作表中批量插入多个分页符太繁琐了，比如需要每行插入一个分页符才能在单独的页面中打印每一行。不用担心！ Excel 的 Kutools 每行插入分页符 实用程序可以帮助您轻松存档！

如果您安装了 Kutools for Excel， 拆分为列 该实用程序可以帮助您在每x行后批量插入多个分页符，并在Excel中轻松地在每个页面中保留标题。

1。 点击 拆分为列 在 Kutools 加 标签。

2。 在打开的“拆分为列”对话框中，您需要：

（1）单击浏览按钮  ，在 职称范围 框，然后在指定范围内选择标题行，您将批量插入分页符。
（2）单击浏览按钮 ，在 日期范围 框，然后选择要批量插入分页符的范围。
（3）在 每页打印的行数 框中，输入一个数字。 （Tips:：例如，如果您需要在每3行后插入分页符，请在框中输入3； 如果您需要在每行之后设置惰性分页符，请输入1。）
（4）在 段数 框。

3。 点击 Ok 按钮。

现在，您将看到该范围被复制到一个新的工作表中，并且每隔x行在保留范围标题的情况下添加分页符。 您还可以通过点击切换到分页预览视图 查看 > 分页预览 查看这些分页符。 请参阅下面的屏幕截图。

Kutools for Excel 开发了另一个“插入分页符每行”实用程序，专门用于在每 x 行后轻松插入分页符。

1。 选择您要在每x行后插入分页符的范围，然后单击 印刷 > 每行插入分页符 在 Kutools 加 标签。

2。 在打开的“每行插入分页符”对话框中，指定插入分页符的行间隔，然后单击 Ok 按钮。

然后，您将看到以指定的行间隔一次插入分页符。