Excel中自动插入分页符

Excel中自动插入分页符
每年处理学生助学数据，有一千多行。

汇总完后需要分班打印，求解自动插入分页符问题。

思路：依班级排序，遍历班级单元格，当下一单元格与上一单元格内容不同时，插入分页符。

在网上查的资料：
在单元格区域中循环
参阅特性使用Visual Basic时，经常需要对某一单元格区域内的每个单元格运行同一段语句。

为达到这一目的，可组合循环语句和一个或多个方法来标识每个单元格，一次针对一个单元格，并执行该操作。

在单元格区域中循环的一种方法是将For...Next循环语句与Cells属性配合使用。

使用Cells属性时，可用循环计数器（或其他变量或表达式）来替代单元格索引编号。

下例中，变量counter代替了行号。

此过程将在单元格区域C1:C20中循环，将所有绝对值小于0.01的数字都设置为0（零）。

Sub RoundToZero1()
For Counter=1To20
Set curCell=Worksheets("Sheet1").Cells(Counter,3)
If Abs(curCell.Value)<0.01Then curCell.Value=0
Next Counter
End Sub
在单元格区域中循环的另一种简便方法是使用For Each...Next循环语句和由Range属性指定的单元格集合。

在每一次循环过程中，Visual Basic都为下一个单元格自动设置一个对象变量。

下述过程在单元格区域A1:D10中循环，将所有绝对值小于0.01的数字都设置为0（零）。

Sub RoundToZero2()
For Each c In Worksheets("Sheet1").Range("A1:D10").Cells
If Abs(c.Value)<0.01Then c.Value=0
Next
End Sub
如果不知道要循环的单元格区域的边界，可用CurrentRegion属性返回活动单元格周围的区域。

例如，下述过程在工作表上运行时，将在活动单元格周围的区域内循环，将所有绝对值小于0.01的数字都设置为0（零）。

Sub RoundToZero3()
For Each c In ActiveCell.CurrentRegion.Cells
If Abs(c.Value)<0.01Then c.Value=0
Next
End Sub
实验成功的代码:
Sub 自动插入分页符()
Application.ScreenUpdating = False
Dim num1 As Integer
num1 = 1
'Sub RoundToZero3()
'For Each c In ActiveCell.CurrentRegion.Cells
For Each c In Worksheets("Sheet1").Range("F2:F1237").Cells
If Abs(c.Value) <> num1 Then
j = c.Row
Rows(j).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
num1 = c.Value
Next
Application.ScreenUpdating = True
End Sub。