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

oobird

其实没有特殊性，一个使用过的表格，也许很多数据都删除了，但是单元格设置过格式，这样要找最后数据的单元格用以上方法就不行了。可以试试：MsgBox Cells.Find("*", , , , , 2).Row

wudingyong

管它的，测试出问题再说，否则这种特殊性会影向学习的。

gyzzf

原帖由 wudingyong 于 2009-8-4 00:25 发表
三个都正常了。我明白了版主的意思了，不要纠緾简单问题。

不是纠缠。我在编程时多次遇到usedrange不能正确返回区域的问题，如果这个问题不用循环能解决就方便多了。
遇到问题应该深入研究出正确的结果，在运用中才能灵活方便不出错。

wudingyong

哦，我是说，怎么用新的表格格式一刷都行了，原来是这个意思，谢谢，学习了，又明白一个道理。

oobird

原帖由 wudingyong 于 2009-8-4 00:25 发表
三个都正常了。我明白了版主的意思了，不要纠緾简单问题。

此言差矣，也许你常遇这种问题，你会解决，别人不一定都知道的。我只想让知道的人多些，没纠緾的意思，我最怕纠緾。

gyzzf

Cells.Find("*", , , , , 2).Row在usedrange不能正确返回区域时能返回正确的最后非空行的行号，谢谢版主的解答！！

zjdh

这个问题在我的工作中经常碰到，为了消除内容为“”的影响，我只能
先用ActiveSheet.UsedRange.Rows ，
再用循环判断排除“”的行。

[ 本帖最后由 zjdh 于 2009-8-4 07:58 编辑 ]

gyzzf

如果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  '正确返回使用区域的最后一列的列号
'上面每句中的两个参数都应该指定,否则有时会因为调用上一次查找时保存的参数值而出现错误。

赵国辉

last row，占位学习

冲天妖狐

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

请问：
1。如果我要返回非活动表使用区域的最后一行的行号(或最后一列的列号)呢？比如要返回指定表“表一”使用区域的最后一行的行号(或最后一列的列号)呢？要如何改代码？
2。要用类似的代码返回指定表“表一”使用区域的最后一行的下一行的行号(或最后一列的下一的列号)呢？要如何改代码？

[ 本帖最后由 冲天妖狐 于 2009-12-28 09:35 编辑 ]