如何在关键字下面自动插入分页符
答案:2 悬赏:70 手机版
解决时间 2021-03-07 13:37
- 提问者网友：wodetian
- 2021-03-07 04:29
如何在关键字下面自动插入分页符
最佳答案
- 五星知识达人网友：往事埋风中
- 2021-03-07 05:29
Sub 分页符()
ActiveSheet.ResetAllPageBreaks '当前表重置所有分页符，删除当前分页符
For Each r In ActiveSheet.Range("a5:a" & [a65536].End(xlUp).Row) '数组
If r.Value = "进货金额" Then '指定文本
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=r.Offset(1, 0)
End If
Next
End Sub
ActiveSheet.ResetAllPageBreaks '当前表重置所有分页符，删除当前分页符
For Each r In ActiveSheet.Range("a5:a" & [a65536].End(xlUp).Row) '数组
If r.Value = "进货金额" Then '指定文本
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=r.Offset(1, 0)
End If
Next
End Sub
全部回答
- 1楼网友：行雁书
- 2021-03-07 06:23
楼上没看清人家问的问题。
但估计用excel本身的功能的话也只有用手动插入分页符了。
其实打印预览就自动分页了，再自调整一下了
要在空白行自动插入分页符用函数也实现不了吧。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯