求excel 宏里批量插入分页符代码

显示全部楼层 · 2010-12-10 21:02:54

我要做个工资表，想每页都是40行，因为员工是分上下午的，所以会出现下午跑到下一页了，求高手指点，还有就是页脚怎么随表格变化而变化呢？意思是比如有一页就有1/2的内容，想抬高让页脚紧挨着表格下面怎么弄啊？菜鸟求助。。。。
就像这样的,我直接复制就可以用的！我太菜了，谢谢！如果想60行分一页怎么该，也顺便给指导一下，小弟谢谢了。。。。
可用VBA代码批量设置分页符
在表格的下面标签上右键，“查看代码”，把下面代码复制进去。
Sub 分页()
For i = 2 To 200

ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)
Next
End Sub

千问 · 2010-12-10 21:02:54

Sub 分页()For i = 61 To 200 Step 60 ' [Step 60]的意思就是60行就执行一次分页
ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)NextEnd Sub========================还有，你可以访问我百度空间，我的一个工个或许可以帮你批量套打报表助手——一键完成工资条、成绩单http://hi.baidu.com/yes_no_ok/blog/item/bac119da62fc68d0b6fd482c.html