ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 52518|回复: 104

end 属性辨析:

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2006-9-17 15:22 | 显示全部楼层 |阅读模式
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编辑过]

inzPlVSe.rar

7 KB, 下载次数: 1176

end 属性辨析:

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2006-9-17 15:59 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-9-17 17:14 | 显示全部楼层
看来感兴趣的人不多,其实这些问题在你实际编程中往往会造成很大的困惑。除了end属性外,行、列的hidden属性也很有玄机,搞得不好,excel恐怕只能通过进程管理器才能关闭。而这些东东看excel帮助是看不出名堂的。

TA的精华主题

TA的得分主题

发表于 2006-9-17 17:47 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
QUOTE:
以下是引用wzsy2_mrf在2006-9-17 17:14:53的发言:
看来感兴趣的人不多,其实这些问题在你实际编程中往往会造成很大的困惑。除了end属性外,行、列的hidden属性也很有玄机,搞得不好,excel恐怕只能通过进程管理器才能关闭。而这些东东看excel帮助是看不出名堂的。

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

[em24]

TA的精华主题

TA的得分主题

发表于 2006-9-17 19:32 | 显示全部楼层

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

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

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

TA的精华主题

TA的得分主题

发表于 2006-9-17 22:16 | 显示全部楼层

这个问题以前遇到过。

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

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

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

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编辑过]

TA的精华主题

TA的得分主题

发表于 2006-9-17 22:46 | 显示全部楼层
这几个属性与在工作表中按住Ctrl键+方向键的功能是一致的

TA的精华主题

TA的得分主题

发表于 2007-2-14 10:07 | 显示全部楼层

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

TA的精华主题

TA的得分主题

发表于 2007-2-18 16:31 | 显示全部楼层
我Autocad VBA中调试irow=range("A65536").end(xlup).row 出错
[此贴子已经被作者于2007-2-18 16:34:21编辑过]

TA的精华主题

TA的得分主题

发表于 2007-2-18 20:56 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

学习了,理解得好细呀!

遇到隐藏行列,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

点评

学习,END这个属性真的是很有玄机。版主这个解决方法很好  发表于 2011-10-12 08:44
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-16 04:16 , Processed in 0.036866 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表