如何在Excel中按条件插入分页符？

假设你需要在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 的 隔行插入分页符 工具快速解决问题。

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

1. 选择数据并点击 Kutools Plus > 打印 > 隔行插入分页符.

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

3. 点击 确定 > 确定 关闭对话框，每两行已插入分页符。

每隔N行插入分页符