每隔固定行数分页的两种方法！VBA与菜单操作

light1275

1. Sub 插入分页符()
   
2. ActiveSheet.ResetAllPageBreaks    '当前表重置所有分页符
   
3. b = InputBox("请输入您想要每页有的工资条数:")
   
4. c = b * 3
   
5. For a = 1 To [a65536].End(xlUp).Row
   
6.     If a Mod c = 0 Then    '如果行号除以c的余数为0则
   
7.         ActiveSheet.HPageBreaks.Add before:=Cells(a + 1, 1)  '
   
8.     End If
   
9. Next
   
10. End Sub
    

复制代码

这是第一种代码的解决方式。

1. Sub 插入分页符2()
   
2. ActiveSheet.ResetAllPageBreaks
   
3. b = InputBox("请输入您想要每页有的工资条数:")
   
4. c = b * 3
   
5. For a = c To [a65536].End(xlUp).Row Step c
   
6. ActiveSheet.HPageBreaks.Add before:=Cells(a + 1, 1)
   
7. Next a
   
8. End Sub
   

复制代码

第二种

light1275

以上都是我这个小白一段时间以来在论坛及相关群学习VBA的一点成果，对一些老师的代码做了小改动。如果哪位老师觉得这样不好，我会删除掉。

light1275

啊啊啊啊！！没人来看看我这小白的帖子吗？都不想再更另一种方法了

盟主不是小清新

这两段的意思是每隔3行进行分页，b请输入条数的作用是什么呢？没有理解。

xuelang272005

下来看看，学习一下

爱学习的姐姐

代码很棒，收藏备用，感谢分享！