根据表格内容快速分页

wliujordan

如表，如何根据班级的不同自动分页，需要各班打印时在一起，不要3个班打印在同一页，因为实际数据较多，分页符和添加空格分页工作量过大，另外如何同时做到每个班的第一个序号自动从1开始往后排序，急等，谢谢！

序号	班级
1	1班
2	1班
3	1班
4	1班
5	1班
6	1班
7	1班
8	1班
1	2班
2	2班
3	2班
4	2班
5	2班
6	2班
7	2班
8	2班
9	2班
10	2班
11	2班
12	2班
1	3班
2	3班
3	3班
4	3班
5	3班
6	3班
7	3班
8	3班

有4地

Sub 宏1()
    Dim i%, k%
    k = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    Application.ScreenUpdating = False
    ActiveSheet.ResetAllPageBreaks   '在设置之前应该重设所有分页符，避免表格分页符混乱
    For i = 3 To k
        If Cells(i, 2) <> Cells(i - 1, 2) Then
            ActiveSheet.HPageBreaks.Add Before:=Cells(i, 2)
        End If
    Next
    Application.ScreenUpdating = True
End Sub

wliujordan

有4地 发表于 2016-6-25 09:24
Sub 宏1()
    Dim i%, k%
    k = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

谢谢亲，看着有点高技术含量啊

1249994139

有4地 发表于 2016-6-25 09:24
Sub 宏1()
    Dim i%, k%
    k = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

请问下，老师，此时的数据源区域是已经筛选后的可见单元格咋，适用此代码呢？求指点下，谢谢！！

jmtang

Sub 宏1()
    Dim i%, k%, m%
    m = InputBox("请输入你要按哪列分") '拆分数据列
    k = ActiveSheet.Cells(Rows.Count, m).End(xlUp).Row
    Application.ScreenUpdating = False
    ActiveSheet.ResetAllPageBreaks   '在设置之前应该重设所有分页符，避免表格分页符混乱
    For i = 3 To k
        If Cells(i, m) <> Cells(i - 1, m) Then
            ActiveSheet.HPageBreaks.Add Before:=Cells(i, m)
        End If
    Next
    Application.ScreenUpdating = True
End Sub