[已解决]vba判断插入分页符问题

h486

按条件判断插入分页符。
1、从第4行开始每30行插入分页符，遇到a行（有可能是合并行）有合计，在合计行下插入分页符。2、如果碰到数据区在90行，合计在91，在合计行下插入分页符。
这个难倒我了，请老师指导。

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-4 20:10

请看这样行不行：
分页符草稿.zip (18.68 KB, 下载次数: 30)

2013-12-4 20:10 上传

点击文件名下载附件

跳转到最佳答案楼层

yyyydddd8888

这样行不行：

分页符草稿.rar (14.91 KB, 下载次数: 11)

2013-12-2 16:20 上传

点击文件名下载附件

1. Sub 插入分页符()
   
2. Dim i&
   
3.    
   
4.     Sheets("1").ResetAllPageBreaks   '重置所分页符
   
5.     For i = 34 To Range("a65536").End(3).Row Step 30
   
6.         Do While Range("a" & i) = "合计" Or Range("a" & i) = "合 计" Or Range("a" & i).MergeCells = True Or Range("a" & i + 1) = "合计"   ' 判断本行是否为合计或者为合并单元格或者下一行是否是合计。如果是，那么就进入下一行
   
7.            i = i + 1
   
8.         Loop
   
9.         Sheets(1).HPageBreaks.Add Before:=Range("a" & i)
   
10.     Next i
    
11.    
    
12. End Sub
    

复制代码

h486

谢谢yyyydddd8888的回答。但实现不了合计行也能插入分页符。

wwwhao123

h486

SOS

h486

我发的附件已体现想实现的效果，但如何用vba来实现。SOS

h486

sos

h486

看来真的是太难了，还没有人可以解决。

yyyydddd8888

h486 发表于 2013-12-3 17:13
看来真的是太难了，还没有人可以解决。

呵呵！可以解决，只是不知道你给我发过消息！

yyyydddd8888

请看这样行不行：
分页符草稿.zip (18.68 KB, 下载次数: 30)

2013-12-4 20:10 上传

点击文件名下载附件