EXCEL如何按照某列的的不同值插入分页符？

lzp83611302

有一列数据是有规律递增的 01 02 03 04...如何按照这一列的不同值插入分页符，比如01的打印在一页，02的打印在一页。。。。求大神帮忙

Chip_Kenny

1. Sub zz()
   
2. With ActiveSheet
   
3.     .ResetAllPageBreaks
   
4.     ar = .Range("f1:f" & .[f65536].End(3).Row).Value
   
5.     For i = 3 To UBound(ar)
   
6.         If ar(i, 1) <> ar(i - 1, 1) Then Stop: .HPageBreaks.Add before:=.Cells(i, 1)
   
7.     Next
   
8. End With
   
9. End Sub

复制代码

lzp83611302

Chip_Kenny 发表于 2018-6-26 17:00

虽然不对 但是非常感谢！！！ 自己从别处找了一段代码修改了下 也可以达到目的了