[求助]请教如何获得最后一行非空单元格行号？

冲天妖狐 · 发表于 2010-1-5 22:36

能否实现31楼的……

zyg365 · 发表于 2010-1-6 10:04

Sheets("sheet1").[a65536].End(xlUp).Row

woyaoxuexls · 发表于 2012-4-17 09:23

如果usedrange显示的区域不正确，可用下面代码正确返回使用区域的最后行号和列号
i = Cells.Find("*", , , , 1, 2).Row  '正确返回使用区域的最后一行的行号
j = Cells.Find("*", , , , 2, 2).Column  '正确返回使用区域的最后一列的列号
'上面两句等同于下面两句
i = Cells.Find("*", , , , xlByRows, xlPrevious).Row  '正确返回使用区域的最后一行的行号
j = Cells.Find("*", , , , xlByColumns, xlPrevious).Column  '正确返回使用区域的最后一列的列号
'上面每句中的两个参数都应该指定,否则有时会因为调用上一次查找时保存的参数值而出现错误。

我试了，非常好用，太感谢了，帮了我大忙！

iblicd · 发表于 2015-11-11 14:27

gyzzf 发表于 2009-8-4 11:57
如果usedrange显示的区域不正确，可用下面代码正确返回使用区域的最后行号和列号
i = Cells.Find("*", , , ...

简单实用，便于编程，赞

ling00027 · 发表于 2018-1-6 12:40

gyzzf 发表于 2009-8-4 11:57
如果usedrange显示的区域不正确，可用下面代码正确返回使用区域的最后行号和列号
i = Cells.Find("*", , , ...

感谢。恰好解决了我目前的困难。

HUA79100101 · 发表于 2018-3-7 10:38

如果usedrange显示的区域不正确，可用下面代码正确返回使用区域的最后行号和列号
i = Cells.Find("*", , , , 1, 2).Row  '正确返回使用区域的最后一行的行号
j = Cells.Find("*", , , , 2, 2).Column  '正确返回使用区域的最后一列的列号
'上面两句等同于下面两句
i = Cells.Find("*", , , , xlByRows, xlPrevious).Row  '正确返回使用区域的最后一行的行号
j = Cells.Find("*", , , , xlByColumns, xlPrevious).Column  '正确返回使用区域的最后一列的列号
'上面每句中的两个参数都应该指定,否则有时会因为调用上一次查找时保存的参数值而出现错误。

铁了心抗日 · 发表于 2019-7-24 22:31

终于找到解决方案了。

		自动登录	找回密码
密码			免费注册

[求助] [求助]请教如何获得最后一行非空单元格行号？

回复 2楼 chen7806 的帖子