-excel 平均分页,excel如何平均分页

如下百图为VBA代码运行结果：

第一处分隔度

之后的分隔结果

实现的具体VBA代码如下：

---

Sub 每隔问50行分页()

Dim i As Integer

ActiveWindow.View = xlPageBreakPreview '跳转到分答页视图

ActiveSheet.ResetAllPageBreaks '清空原有内分页符

For i = 51 To [a65536].End(3).Row Step 50 '51表示从A51左上角插入容分页符，50表示间隔

    Range("A" & i).Select

    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Next

End Sub