如何在EXCEL表中制作宏将很长的表自动分页打印？
如第一列为行政区划，第一个单位从34142113001至34142113030，第二个单位编码从34142114001至34142114052。。。我想自动从341421...
如第一列为行政区划，第一个单位从34142113001至34142113030，第二个单位编码从34142114001至34142114052。。。我想自动从34142114001处分页并保留表头（所有单位第一户开头尾号均为001），求助如何制作这个宏？
展开
1个回答
展开全部
假设数据在A列
Sub 分页()
For r = 1 To [a65536].End(xlUp).Row
If Right(Cells(r, 1), 3) = "001" Then ActiveSheet.HPageBreaks.Add Cells(r, 1)
Next r
End Sub
Sub 分页()
For r = 1 To [a65536].End(xlUp).Row
If Right(Cells(r, 1), 3) = "001" Then ActiveSheet.HPageBreaks.Add Cells(r, 1)
Next r
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
