end 属性辨析:

wzsy2_mrf

end 属性辨析:

 

end属性是我们在使用excel编程时经常用到的，如求A列最末有数的一行，我们往往会采用irow=range("A65536").end(xlup).row 这样的语句。但这样做实际上是有问题的，只是这些问题我们不常遇到罢了。

end(xldown)等指的是什么呢？就以[a10].end(xldown)为例，有人可能会说，这不就是从[a10]出发往下找到的第一个有数的单元格吗？这样的理解是不完整的，有时恰恰相反。

比如[a8]-[a50]为连续有数的单元格，那么，[a10].end(xldown)所指的恰恰是[a50]，而不是[a11]。所以要论[a10].end(xldown)具体指那一个，实际要看[a10]是不是处于连续区域，如在连续区域，则指的是向下的属于该区域的最后一个单元格，如[a10]是个孤立的单元格，则[a10].end(xldown)指的才是从[a10]出发往下找到的第一个有数的单元格。如[a10]往下一直没有有数单元格呢？那么[a10].end(xldown)指的就是[a65536]这个单元格。

上面的辨析似乎是清楚了，但是否真的很完整了呢？其实还是不是的。End属性还跟行列的hidden隐藏属性有关。还是[a10].end(xldown)为例。比如，[a10]是个孤立的单元格，从[a10]往下至[a100]才有数，那么[a10].end(xldown)通常指的是[a100]，这是没问题的。但是，如当[a100]所在行处于隐藏状态时，[a10].end(xldown)指的就不是[a100]，而是继续往下的第一个有数单元格。

再比如从[a10]至[a100]连续有数，但如从[a51]以下均处于隐藏状态时，那么[a10].end(xldown)指的就是[a50]。

再比如[a10]孤立，往下只有[a100]有数，但是[a100]所在行处于隐藏状态时，那么，[a10].end(xldown)返回最后所能显示单元格。如[a50]及以下均处于隐藏状态时，那么[a10].end(xldown)指的就是[a49]，不是[a100]，也不是[a65536]。

所以end属性除了同对象本身所处是否连续块有关外，还跟行列的hidden隐藏属性有关，一般来说，就是遇到隐藏行列，end属性均将将其忽略。所以取隐藏对象的end属性时系统会发生错误，从而导致程序中断。

 
再回到开始的问题，我觉得用range("A65536").end(xlup).row来取连续块的最末行不是好办法，且不说有没有行隐藏问题，就是没有，但如有人在range("A65436")写入值，那么我们可能永远取到的都是65436行，而不是真正的最末行。我觉得可行的办法不如用irow=[a2].end(xldown).row，它始终能取到[a2]连续块的最末行，当然还是要在控制隐藏的情况下。

 
end(xldown)算是说清楚了，其它end(xlup)，end(xltoleft)，end(xltoright)等都类似。大家可以根据附件测试一下。

 

点击浏览该文件

[此贴子已经被作者于2006-9-17 17:11:08编辑过]

lrf2003

好!

wzsy2_mrf

看来感兴趣的人不多，其实这些问题在你实际编程中往往会造成很大的困惑。除了end属性外，行、列的hidden属性也很有玄机，搞得不好，excel恐怕只能通过进程管理器才能关闭。而这些东东看excel帮助是看不出名堂的。

plxmm

QUOTE:

以下是引用wzsy2_mrf在2006-9-17 17:14:53的发言：
看来感兴趣的人不多，其实这些问题在你实际编程中往往会造成很大的困惑。除了end属性外，行、列的hidden属性也很有玄机，搞得不好，excel恐怕只能通过进程管理器才能关闭。而这些东东看excel帮助是看不出名堂的。

这个问题总结得不错。值得表扬啊。

[em24]

liurj

我今天就遇到这样的问题，正好看到这篇文章，真及时。

我用[a1].end(xltoright).column 来求列数

结果，在只有A列有数据时，求出的却是256，而不是1

ldy888

这个问题以前遇到过。

做好的文件给同事用，头几天好好的，再过几天就有问题了。

主要是同事清空或隐藏某些行。

用上下其手的方法来判断，如不一样，提示并退出程序

Sub aaa()
row1 = [a65536].End(xlUp).Row
row2 = Application.CountA(Columns(1))
If row1 <> row2 Then
MsgBox "请先处理空行和隐藏行"
Exit Sub
End If

aa = bb '<------  要的执行的代码

End Sub

对列也可同样对待。

[此贴子已经被作者于2006-9-17 22:38:46编辑过]

清风_ll

这几个属性与在工作表中按住Ctrl键+方向键的功能是一致的

zjy58

一值对end(xlup)语句疑问,现在看了版主的解释后顿开瓶塞!!

兰州人

我Autocad VBA中调试irow=range("A65536").end(xlup).row 出错

[此贴子已经被作者于2007-2-18 16:34:21编辑过]

yanjie

学习了，理解得好细呀！

遇到隐藏行列，end属性均将将其忽略。所以取隐藏对象的end属性时系统会发生错误，从而导致程序中断。

end属性相当于ctrl+箭头箭！并且只适用于单列。

解决办法我认为还有更好的，就是使用usedrange，并且适用于所有列，并解决隐藏单元格的问题：

例如：

sub 最后行数()

dim rng as range

dim r as long

set rng=activesheet.usedrange

r=rng.rows.count

msgbox r

end sub