如何在Excel中值变化时插入分页符？

假设我有一个单元格区域，现在，当A列中的值发生变化时，我希望在工作表中插入分页符，如左图所示。当然，您可以逐个插入它们，但是否有一些快速的方法可以根据某一列的值变化一次性插入分页符呢？

使用VBA代码在值变化时插入分页符

使用强大功能在值变化时插入分页符

使用VBA代码在值变化时插入分页符

以下VBA代码可以帮助您根据某一列数据的变化在下方插入分页符，请按照以下步骤操作：

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击“插入”>“模块”，并将以下代码粘贴到模块窗口中。

VBA代码：当值变化时插入分页符：

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. 然后按 F5键运行此代码，当A列中的数据发生变化时，所有分页符都已插入到工作表中。请参见截图：

使用强大功能在值变化时插入分页符

1. 点击Kutools > 格式 > 标记列内内容变化，参见截图：

2. 在弹出的标记列内内容变化对话框中，执行以下操作：

• 选择要使用的数据区域和关键列；
• 从选项框中选择分页符。

3. 然后点击确定按钮，基于值的变化，分页符已被插入到区域中，请参见截图：

更多相关文章：