[已解决]一个end(xlup)问题？

mfk1288

A列从A1到A15都有数值,语句[A65536].end.(xlup).row的值为15,,但是经过筛选的后,最后可见一行A10，运行[A65536].end.(xlup).row值变了10.有何方法不用取消筛选也可以达到语句得出值也是15呢?这语句应该怎么写？

最佳答案

月排行榜 / 总排行榜

amulee

2010-6-25 10:55

如果数据是连续的：

MsgBox Range("A1").CurrentRegion.Rows.Count

跳转到最佳答案楼层

那么的帅

遍历的方法

 For I = 65536 To 1 Step -1
    If Range("A" & I) <> "" And S = 0 Then
        S = I
    End If
Next I

amulee

如果数据是连续的：

MsgBox Range("A1").CurrentRegion.Rows.Count