达到A4工作表限制时在Excel VBA中进行了解

Question

我必须编写一个将在Excel中的新工作表上写多行的过程。我的问题是，当工作表达到A4工作表的限制并达到此限制时，我必须中断新行的插入，我将不得不创建一个新工作表，将不同的数据（不是页面标题）插入页眉，然后恢复插入行。 我不能简单地计算行数，因为我要插入的行将具有可变的高度。页面脚注也将固定。

所以我问自己：excel vba中是否有某个属性或东西可以向我返回图纸a4（人像）上一个单元格的位置Y？ 这样，我可以循环了解何时需要更改工作表

Answer 1

当您插入不同高度的新行时，请使用

检查其高度

Rows(i).RowHeight

将此高度添加到某些变量中，例如

total_height = total_height + Rows(i).RowHeight

在某个total_height处放置一个检查以中断循环以开始新页面。 您必须自行决定此高度，因为在excel A4中，高度不是恒定的，它是根据数据动态变化的，可以增加或减少

您必须根据数据测试折断高度数字，该高度对您而言是合适的。

在继续进入新页面之前，请在完成的页面上运行此代码

With ActiveSheet.PageSetup

    .FitToPagesWide = 1
    .FitToPagesTall = 1

End With