[已解决]有条件插入分页符

要用就学

如果B列单元格记录班级名称，在1班和2班中间、2班和3班中间插入分页符，及下一个单元格的内容和上一个单元格的内容不一样是便插入分页符，（表头列外）请问代码怎么写？

最佳答案

月排行榜 / 总排行榜

冥王

2014-4-23 12:55

受5楼大师的启发  录制的代码稍作修改

1. Sub 宏1()
   
2.     Dim i%, k%
   
3.     k = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
   
4.     Application.ScreenUpdating = False
   
5.     ActiveSheet.ResetAllPageBreaks   '从论坛高手那学到：在设置之前应该重设所有分页符，避免表格分页符混乱
   
6.     For i = 3 To k
   
7.         If Cells(i, 2) <> Cells(i - 1, 2) Then
   
8.             ActiveSheet.HPageBreaks.Add Before:=Cells(i, 2)
   
9.         End If
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

跳转到最佳答案楼层

冥王

上传附件

冥王

启用宏

tgydslr

咱们一起学习

qh8600

1. Sub 分页符()
   
2. Dim irow%, i%
   
3. On Error Resume Next
   
4. With Sheet1
   
5.    .ResetAllPageBreaks
   
6.     irow = .cells(Rows.Count, 2).End(3).Row
   
7.   For i = 2 To irow
   
8.     If Cells(i, 2) <> Cells(i + 1, 2) Then
   
9.       .HPageBreaks.Add Before:=Cells(i + 1, 2)
   
10.     End If
    
11.   Next
    
12. End With
    
13. End Sub

复制代码

冥王

受5楼大师的启发  录制的代码稍作修改

1. Sub 宏1()
   
2.     Dim i%, k%
   
3.     k = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
   
4.     Application.ScreenUpdating = False
   
5.     ActiveSheet.ResetAllPageBreaks   '从论坛高手那学到：在设置之前应该重设所有分页符，避免表格分页符混乱
   
6.     For i = 3 To k
   
7.         If Cells(i, 2) <> Cells(i - 1, 2) Then
   
8.             ActiveSheet.HPageBreaks.Add Before:=Cells(i, 2)
   
9.         End If
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

qh8600

冥王 发表于 2014-4-23 12:55
受5楼大师的启发  录制的代码稍作修改

我可不是大师啊，另外像插入分页符，我的理解是最好加一句重置分页符
ActiveSheet.ResetALLPageBreaks

风林火山

qh8600 发表于 2014-4-23 13:08
我可不是大师啊，另外像插入分页符，我的理解是最好加一句重置分页符
ActiveSheet.ResetALLPageBreaks

大师说的真有道理。先将以前的分页符取消（不管有没有，省着弄乱了）。ActiveSheet.ResetALLPageBreaks，然后，在HpageBreaks.Add

qh8600

风林火山 发表于 2014-4-23 13:14
大师说的真有道理。先将以前的分页符取消（不管有没有，省着弄乱了）。ActiveSheet.ResetALLPageBreaks， ...

还不是根风林老师学的，像Resize数组前，先清空。

风林火山

qh8600 发表于 2014-4-23 13:19
还不是根风林老师学的，像Resize数组前，先清空。

又学一招，谢谢老师指点