请教高手一个关于筛选后得到最后一行的问题

lmswy

　這個很有用

ivccav

如果数据有筛选，用r=range("a"&rows.count).end(3).row得出的最后一行往往是错误的，因为这是筛选后最后一行可见行！我是在某个程序莫名不正确之后，经过多种测试之后才发现的这个问题。
我的解决办法是:如果有筛选，就全部展开数据，这样永远也不会出错。代码如下
if activesheet.filtermode then activesheet.showalldata
r=range("a"&rows.count).end(3).row