如何在指定条件后面自动插入分页符？

xiaoquana

如图 我要在每张档案卡遇到“平均”这个字符的时候往下隔一行自动插入分页符（比如平均在29行，我要在31行插入分页符），因为数据量大，手动插入很费事，想请问论坛的大神能不能要用vba或者宏帮小菜我解决一下！跪谢了！

jsgj2023

1. Sub 插入分页符()
   
2.     Sheet1.Activate
   
3.     R = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     For y = 1 To R
   
5.         If Cells(y, 1).Value Like "*平均" Then
   
6.             ActiveSheet.HPageBreaks.Add before:=Cells(y + 1, 1)
   
7.         End If
   
8.     Next y
   
9. End Sub

复制代码

jsgj2023

详见附件。

xiaoquana

jsgj2023 发表于 2016-11-13 09:12
详见附件。

谢谢老大，晚上再测试

遗忘旋律

我想在A1列出现数字1的上面插入分页符，代码怎么写，谢谢

库拉85

jsgj2023 发表于 2016-11-13 09:10

如果多个表格按照指定条件插入分页符，宏应该怎么改

库拉85

如果多个工作表按照指定条件插入分页符，宏应该怎么改