在excel中如何用VBA取得每页的行数?

来源：百度知道 编辑：UC知道 时间：2024/09/25 06:33:24
我想用VBA取得excel表每页的行数,但不知如何实现,请高手帮忙,谢谢.
我是说的每一页所包含的行数,比如第一页是25行,第三页是27行,第十五页为30行.
上面说的不符合我的意思,我指的是打印时每页包含的记录数有多少,我要设置每页的行数不等可以实现吗?

'在工作薄的最前面插入一工作表
'在新表的A1、B1分别输入：表名、行数
'选定A1，运行下面的宏
Public Sub hang()

For i = 2 To Sheets.Count
r = Sheets(i).Cells.SpecialCells(xlCellTypeLastCell).Row
n = Sheets(i).Name
ActiveCell.Offset(i, 0) = n
ActiveCell.Offset(i, 1) = r
Next
End Sub

http://www.okexcel.com.cn/bbs/viewthread.php?tid=26&extra=page%3D2

看这个！

Range("A65536").End(xlUp).Row