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

Posted 2023-03-19

我想用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 参考技术A http://www.okexcel.com.cn/bbs/viewthread.php?tid=26&extra=page%3D2

看这个！ 参考技术B Range("A65536").End(xlUp).Row

Excel中如何用VBA判断行数？

例如我已经有三十行数据了，我怎样操作才能获得这个30的数值并应用于其他模块中？以后我可能有三十一、三十二行数据，怎样能灵活地统计出来？谢谢！

1、同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。

2、在打开的excle窗口，依次点击工具栏“开发工具”——“Visual Basic”或直接按快捷键“ALT+F11”,打开VB编辑器。

3、双击左侧工程窗口中的“sheet1”，打开“sheet1”代码编辑窗口。

4、在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。

5、在过程中写入代码：

If (Target.Columns.Count = Sheet1.Columns.Count) And (Target.Row <= Range("b4").Row) And (Target.Row + Target.Rows.Count > Range("b4").Row) Then

MsgBox "yes"   

Else    

MsgBox "no"    

End If

6、再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果很成功。

参考技术A

Excel中用VBA判断行数的方法：

1、VBA中可以用CurrentRegion.Rows.Count属性获得连续的数据区域的行数。

2、'选择A2单元格周围连续有数据的区域,并将其行数值赋予HROW
3、HROW=Sheets("sheet1").[A2].CurrentRegion.Rows.Count

参考技术B VBA中可以用CurrentRegion.Rows.Count属性获得连续的数据区域的行数

'选择A2单元格周围连续有数据的区域,并将其行数值赋予HROW

HROW=Sheets("sheet1").[A2].CurrentRegion.Rows.Count本回答被提问者采纳 参考技术C 图省事儿的话，Excel本身有公式可以实现此功能。如必须在VBA中调用，可考虑用Worksheetfunction进行内置公式的引用。 参考技术D 要提供实际例才可以处理