增加快速分页功能.

loadymf

工作中经常用到要将不同的班级的数据分开打印,如果有个功能就好多了.
例如第E列从E3到E2900止.(经过排序的列)
逐一从E3到E2900读取值与上一格的数值比较若不同则在相应行的cells(i,1)前插入一个分页符.
自用代码,用一次要改一次,不方便.
sub 快速分页()
dim Bjn1,Bjn2 as string
ActiveSheet.ResetAllPageBreaks
bjn1=""
for i=3 to 2900
bjn2=activesheet.cells(i,5) '5为E列
if bjn1<>"" and bjn1<>bjN2 then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=activesheet.cells(i,1)
endif
next i
end sub