表格跨越多页，如何计算每页的行数？

Question

可以很容易地计算每个表的行数，但是我试图弄清楚如何计算给定页面上该表的行数。

最终目标是这样的：最左边的列是“类别”，因此单元格合并成十几行。有时，这些部分在多个页面上。我要确保页面的最后一行上有一个虚线边框，表明它在下一页的同一部分。

我认为最简单的方法是计算页面上的行数，计算到末尾并添加虚线边框。

Answer 1

尝试以下功能：

'[Returns The Last Row Number With Data in a Designated Sheet and Column
Public Function LastRow(SHT As Worksheet, Col As Integer) As Integer
    LastRow = SHT.Cells(SHT.Rows.Count, Col).End(xlUp).Row
End Function
']

'[Returns The Last Column Number With Data in a Designated Sheet and Row
Public Function LastColumn(SHT As Worksheet, CuRow As Integer) As Integer
    LastColumn = SHT.Cells(CuRow, SHT.Columns.Count).End(xlToLeft).Column
End Function
']

我一直使用它们，直到它们返回指定行和工作表中最后一行的值。