Sub FY_AD()
Dim rng As Range
‘从4行至25行进行分面操作;
For Each rng In Range(“A2:A25”)
‘以“newpage”作为分页条件,在A列中的第4行至25行如果有1则在该处插入打印分页符
If rng.Value = “newpage” Then
‘插入分页符
ActiveSheet.HPageBreaks.Add rng
End If
Next
End Sub
(湘ICP备2021002763号-1)温馨提示:本博客只收集个人学习与研究IT的技术资料。谢绝攻击!!!
Sub FY_AD()
Dim rng As Range
‘从4行至25行进行分面操作;
For Each rng In Range(“A2:A25”)
‘以“newpage”作为分页条件,在A列中的第4行至25行如果有1则在该处插入打印分页符
If rng.Value = “newpage” Then
‘插入分页符
ActiveSheet.HPageBreaks.Add rng
End If
Next
End Sub