Note: The other languages of the website are Google-translated. Back to English

在Excel中更改值时如何插入分页符?

假设我有一个单元格区域,现在,当A列中的值发生变化时,我想在工作表中插入分页符,如左图所示。 当然,您可以一个接一个地插入分页符,但是有没有一种快速的方法可以根据一列的更改值一次插入分页符?

使用VBA代码更改值时插入分页符

借助功能强大的功能更改值时插入分页符


使用VBA代码更改值时插入分页符

以下VBA代码可以帮助您根据列数据的更改在下面插入分页符,请执行以下操作:

1. 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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列中的数据更改时,所有分页符都已插入到工作表中。请参见屏幕截图:

请注意:在上面的代码中, A 是要基于其插入分页符的列标题,可以根据需要进行更改。

借助功能强大的功能更改值时插入分页符

如果你有 Kutools for Excel,其 区分差异 功能,您可以根据值更改快速插入分页符,空白行,底部边框线或背景颜色。 点击下载Kutools for Excel!

提示:申请这个 区分差异 功能,首先,您应该下载 Kutools for Excel,然后快速轻松地应用该功能。

安装后 Kutools for Excel,请这样做:

1。 点击 库工具 > 格式 > 区分差异,请参见屏幕截图:

2。 在弹出 按关键列区分差异 对话框中,进行以下操作:

  • 选择要使用的数据范围和键列;
  • 分页符 来自 附加选项 框。

3。 然后点击 Ok 按钮,分页符已根据值更改插入到范围中,请参见屏幕截图:

立即下载并免费试用Excel的Kutools!


更多相关文章:

  • 在Excel中单元格值更改时突出显示行
  • 如果工作表中有重复值的列表,则需要突出显示基于列A的行,该行的单元格值会发生变化,如下图所示。 实际上,您可以使用条件格式设置功能快速轻松地完成此工作。
  • 当值在另一列中更改时增加数字
  • 假设您在A列中有一个值列表,现在想在A列中的值更改时在B列中将数字递增1,这意味着B列中的数字递增直到A列中的值更改,然后数字增量再次从1开始,如左图所示。 在Excel中,可以使用以下方法解决此任务。
  • 值在另一列中更改时对单元格求和
  • 有时,当您处理Excel工作表时,可能需要根据另一列中的一组数据对单元格求和。 例如,在这里,我想对A列中的数据更改时B列中的订单求和,以获得以下结果。 您如何在Excel中解决此问题?
  • 在Excel中值更改时插入空白行
  • 假设您具有一系列数据,现在您想在值更改时在数据之间插入空白行,以便可以将一列中的顺序相同值分开,如下面的屏幕截图所示。 在本文中,我将为您解决一些技巧。
  • 在Excel中单元格值更改时运行宏
  • 通常,在Excel中,我们可以按F5键或“运行”按钮执行VBA代码。 但是,您是否曾经尝试在单元格值更改时运行特定的宏代码? 本文中,我将介绍一些快速技巧来处理Excel中的这项工作。

最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (8)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
你好多谢! VBA 的想法让我汗流浃背。 不过,我确实对这段代码的结果有一个问题。 第一列是列标题。 代码将此视为更改。 我的第一页只显示列标题,但他后面的页面很好。 仅供参考:这是针对月度报告的,每个标准的行数每月都会发生变化。 有任何想法吗? 先感谢您。
该评论由网站上的主持人最小化
对不起。 编辑:第一行是列标题。
该评论由网站上的主持人最小化
这真是太棒了! 我跟着你的 VB 例子,它工作! 我也是 KUTools 的所有者,所以我也会使用它。

非常感动和感谢!

Mike
该评论由网站上的主持人最小化
是否可以跳过工作表的前 20 行? 如果一直在尝试各种东西,但我对 VBA 的了解仅限于自己调整代码。
该评论由网站上的主持人最小化
嗨,威尔科,
要插入分页符但跳过前 20 行,您只需更改一个参数,如下代码:

子 insertpagebreaks()

'更新 Extendoffice

昏暗我一样长,J一样长

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

对于 I = J 到 21 步 -1

If Range("A" & I).Value <> Range("A" & I - 1).Value Then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

结束如果

接下来我

END SUB

请尝试,谢谢!
该评论由网站上的主持人最小化
Tôi không muốn ngắt trang tại những hàng bị ẩn。 Thì phải làm sao?
该评论由网站上的主持人最小化
你好,LêTuấn
要解决您的问题,请应用以下 VBA 代码:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


请尝试,希望对您有所帮助!
该评论由网站上的主持人最小化
你好,

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code?

非常感谢你!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护