VBA中range的find方法⑤

vba中末行查找问题

在连续的数据区域，可以使用do while来查找

对于不连续的单元格，可以使用usedrange判断

但usedrange有个缺点，即使单元格没有内容，但只要其中的格式变化了，

vba中也认为其是有效数据属于usedrange

使用range.end属性查找最后一行

range.end(direction):从range出发，按照指定方向找到数据区域的边缘单元格

其相当于ctrl+方向键（xlup,xldown,xltoleft,xltoright）

虽然写法简单但range.end属性同样无法适用于中间有空单元格的情况，

且其只能在一行或者一列中查找边界

如果从最后一个空白单元格开始向上查找，则中间是空白单元格的情况下也能找到最后一行

需要注意的是，不同列的最后一行各不相同时，range.end也无法很好的查询

这时候仍需要用循环来辅助判断