[已解决]筛选后的(xlup).row结果与事实不符

wayy · 发表于 2011-6-9 10:28

Private Sub CommandButton1_Click()
　MsgBox [a65536].End(xlUp).Row
End Sub

　　在进行自动筛选后，代码得到的row与实际非空单元格所在行不符，如何解决这个问题呢？

最佳答案

amulee

2011-6-9 13:09

amulee 发表于 2011-6-9 11:25
用函数方法吧

哦，这个2003会出错，用在2007没问题。2003里面的整列不能运算，那就换个公式吧。

复制代码

搁浅2008 · 发表于 2011-6-9 10:55

MsgBox Sheet1.UsedRange.EntireRow.Count
MsgBox Range("A1").CurrentRegion.EntireRow.Count

爱疯 · 发表于 2011-6-9 10:52

回复 wayy 的帖子

222.rar (9.56 KB, 下载次数: 3)

搁浅2008 · 发表于 2011-6-9 10:56

再就是先取消筛选然后定位

上清宫主 · 发表于 2011-6-9 11:04

各有利弊，视情况而定。
还有：
MsgBox Sheet1.UsedRange(1).Row + Sheet1.UsedRange.Rows.Count - 1

amulee · 发表于 2011-6-9 11:25

用函数方法吧

复制代码

wayy · 发表于 2011-6-9 12:26

目前解决方法就是先判断是否筛选状态，如果是筛选然后去掉筛选再执行就可以了。

吕?布 · 发表于 2011-6-9 12:37

从[a65536]往上循环，这样也是很快的

amulee · 发表于 2011-6-9 13:09

amulee 发表于 2011-6-9 11:25
用函数方法吧

哦，这个2003会出错，用在2007没问题。2003里面的整列不能运算，那就换个公式吧。

复制代码

Zipall · 发表于 2011-6-9 13:18

本帖最后由 Zipall 于 2011-6-10 15:01 编辑

我觉得这题的标题不"实际".
如果你认为它得到结果和"实际"不一样,那是因为你对end的认识出现了偏差.

		自动登录	找回密码
密码			注册