Excel宏当中,如何得到当前的行数

我请教一下,Excel宏当中,如何得到当前的行数
最新回答
寂寞念行乐

2024-10-18 07:06:13

举例说明。

第一步:编写宏代码。代码如下:

Sub 当前行号()

Dim a As Integer

a = ActiveCell.Row

MsgBox "当前行号=" & str(a)

End Sub

第二步:运行宏“当前行号”。如图:

运行结果如图:

姐の霸气

2024-10-18 07:08:36

你的意思是想知道表格中有多少行数据么?

我有一个方法:

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

返回值是一个整数,是当最后一行被使用的单元格的行数。

当然方法有好几个,但我通常比较喜欢使用这个方法,当然好多人也喜欢用这个方法。

它所以的功能类似在Excel中最后一行按住End键不放,然后再按向上的方向键,得到最后一个被使用的单元格的位置,然后通过Row属性返回行数。

绝对可靠而且高效,不信你可以试验一下。
茴菿原点

2024-10-18 05:17:13

Rows、Columns分别代表活动工作表、单元格区域范围Range、指定工作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns,只返回该范围中第一个区域的行数、列数。例如,如果Range对象有两个区域(areas)A1:B2和C3:D4,Rows.Count返回2而不是4。

可通过Rows(行号)、Columns(列号)来引用相应的行与列;如Rows(3)、Columns(4)分别对应第三行、D列。
利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号,所得值均以十进制数表示。
宛若晴空

2024-10-18 06:30:00

j = 1
Do While Cells(j, 1) <> ""
’ 检测表格的行数
j = j + 1
’j 为表格的行数
Loop
携酒天涯

2024-10-18 05:32:05

回家帮你看看哦!
一时间想不好。不知道怎么表达。