[已解决]求删除分页符代码

被禁锢的风

我在"付款记录单"这个工作表上编了一个自动插入行分页符的代码

'A列单元格内容为1时自动插入行分页符

1     Dim y1 As Single
2     Dim y2 As Single
3     y1 = Sheets("付款记录单").Range("A65536").End(xlUp).Row
4     For y2 = 5 To y1
5        If Sheets("付款记录单").Range("A" & y2).Text = 1 Then
6             ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & y2) '插入行分页符
7         End If
8     Next y2

根据上面的，又录编了一个删除分页符代码。

就是将第6行的代码用

ActiveSheet.HPageBreaks(1).Delete

来代替

可是运行删除分页符代码的时候，代码运行到6行总是会出错。后将(1)里面的1用变量来代替，还是出错。

求删除分页符代码

最佳答案

月排行榜 / 总排行榜

函数小菜鸟

2009-10-12 16:38

SUB 删除分页符()

ActiveSheet.ResetAllPageBreaks

END SUB

跳转到最佳答案楼层

函数小菜鸟

SUB 删除分页符()

ActiveSheet.ResetAllPageBreaks

END SUB

被禁锢的风

2楼神速

banjinjiu

昨天的技术，今天依然是我们学习的