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

'在工作薄的最前面插入一工作表

'在新表的A1、B1分别输入：表名、行数

'选定A1，运行下面的宏

Public Sub hang()

For i = 2 To SheetsCount

r = Sheets(i)CellsSpecialCells(xlCellTypeLastCell)Row

n = Sheets(i)Name

ActiveCellOffset(i, 0) = n

ActiveCellOffset(i, 1) = r

Next

End Sub

A列最底端有数据的单元格

[a65536]end(xlup)row

如果是统计每列有多少非空单元格

就要调用COUNTA函数方便些

WorksheetFunctionCountA

(Range("A:A"))

1、按alt+F11打开vba编辑器；

2、输入以下代码

MsgBox "sheet1共有" & Sheet1UsedRangeRowsCount & "行记录。"

End Sub

3、点击运行。

'单元格触发事件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If TargetCount = 1 Then

MsgBox "当前单元格的行号是:" & TargetRow

End If

End Sub

用命令按钮的宏:

Sub YY()

MsgBox "当前单元格的行号:" & ActiveCellRow

End Sub

Function lines(r)  'r 为某单元格，如A1

rWrapText = False

x = rHeight

rWrapText = True

y = rHeight

lines = y / x

End Function

使用方法 lines(range("A1"))

思路：设置该单元格不自动换行，得到此时的高度x，恢复自动换行，得到此时的高度y，行数=y/x

以上就是关于在excel中如何用VBA取得每页的行数全部的内容，包括:在excel中如何用VBA取得每页的行数、怎么用vba在excel中统计每列有多少行数、Excel VBA 里，如何得到Sheet1表格中，有多少行记录等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！