假设您需要在 A 列的值发生变化时（如下图所示）自动插入分页符，该如何在 Excel 中实现？虽然您可以手动逐个插入分页符，但接下来我将为您介绍几种高效快捷的解决技巧。

使用分类汇总功能插入分页符

使用 VBA 代码插入分页符

标记列内内容变化在数据变化时插入分页符

隔行插入分页符在第 n 行插入分页符

使用分类汇总功能插入分页符

在 Excel 中，分类汇总功能可根据分组自动插入分页符。

1. 选择要添加分页符的数据，单击数据> 分类汇总。

2. 在分类汇总对话框中，从“每组更改”下拉列表中选择要基于其值插入分页符的列，然后从使用函数列表中选择所需函数，并勾选组间插入分页符复选框及其他所需选项。

3. 单击确定，数据即已分组并自动添加分页符。

使用 VBA 代码插入分页符

如果您不希望手动为数据添加类别，不妨尝试使用 VBA 代码来完成此任务。

1. 按下 Alt + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入> 模块，将下方代码复制并粘贴到新弹出的模块窗口中。

VBA：在数据变化时插入分页符

Sub PageBreak()
'UpdatebyExtendOffice20181101
    Dim xSRg As Range
    Dim xRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    For Each xRg In xSRg
        ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
        If xRg.Value <> xRg.Offset(-1, 0).Value Then
            ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
        End If
    Next xRg
Application.ScreenUpdating = True
End Sub

3. 按 F5 键，弹出对话框，提示您选择用于插入分页符所依据的关键列。

4. 单击确定后，分页符即已插入。

标记列内内容变化在数据变化时插入分页符

Kutools for Excel 的标记列内内容变化功能，可在 Excel 数据发生变化时自动插入分页符、空白行、下边框或背景颜色。

安装 Kutools for Excel 后，请按以下步骤操作：（免费下载 Kutools for Excel 立即体验！）

单击 Kutools > 格式 > 标记列内内容变化。

2. 在标记列内内容变化对话框中，请完成以下设置：

1）单击选择图标，然后在范围区域中选择不含列标题的数据区域。

2）单击选择图标，点击关键列区域，选择要基于其数据变化插入分页符的列（不含列标题）。

3）在分页符选项中勾选选项区域。

3. 单击确定。

现在，当所选区域中的数据发生变化时，系统会自动插入分页符。

隔行插入分页符在第 n 行插入分页符

Kutools for Excel 的 每隔 N 行插入分页符工具可帮您快速解决以固定间隔插入分页符的问题。

安装 Kutools for Excel 后，请按以下步骤操作：（免费下载 Kutools for Excel 立即体验！）

1. 选择数据，然后单击 KUTOOLS PLUS > 打印 > 隔行插入分页符。

2. 在隔行插入分页符对话框中，输入所需的行间隔。

3. 单击确定> 确定 关闭对话框，分页符已在每 2 行中插入。

  每隔 N 行插入分页符