[已解决]返回工作表最下面非空单元格的行数

爱疯

4FWwh7d0.rar (7.59 KB, 下载次数: 3)

2009-9-26 12:07 上传

点击文件名下载附件
返回工作表最下面非空单元格的行数
Sub aa() '返回工作表最下面非空单元格的行数
MsgBox Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
End Sub

这是以前的习题，为什么这句可以做到，我还是不明白。

谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-27 08:25

从A1开始向前按行查找最后一个非空单元格。A1是第一个单元格，所以循环查找，即查找从最后开始找。

等同于如下语句：

MsgBox Cells.Find("*", Range("IV65536"), , , xlByRows, xlPrevious).Row

按行查找即每行遍历，直到找到某一行有非空单元格。同理，以下语句范围最后列号：

MsgBox Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column

跳转到最佳答案楼层

雨狐

这个好像不难理解，录制一个宏CTRL+F查找*，按行，找下个和这个比较一下这是了

勤快的猫

跟着爱疯一起学习

 

[em01]

amulee

从A1开始向前按行查找最后一个非空单元格。A1是第一个单元格，所以循环查找，即查找从最后开始找。

等同于如下语句：

MsgBox Cells.Find("*", Range("IV65536"), , , xlByRows, xlPrevious).Row

按行查找即每行遍历，直到找到某一行有非空单元格。同理，以下语句范围最后列号：

MsgBox Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column

爱疯

谢谢阿木！

噢，原来我没注意这2个参数xlByRows, xlPrevious

zsd5237

学习[em02][em02]

qjsu

爱疯 发表于 2009-9-27 10:34
谢谢阿木！噢，原来我没注意这2个参数xlByRows, xlPrevious

请问一下，这两个参数是干什么用的，不写会有什么效果呢？

qjsu

为什么会返回缺少表达式呢?