end 属性辨析:

clothfish · 发表于 2007-2-18 21:54

QUOTE:

sub 最后行数()

dim rng as range

dim r as long

set rng=activesheet.usedrange

r=rng.rows.count

msgbox r

end sub

同意楼上用usedrange，但需要修正
rng.rows.count是有数据的行数，如果开始的几列没数据呢!
应该是
r=rng.rows.count - rng.row + 1

alex1437 · 发表于 2009-8-27 01:20

建议大家用: ActiveSheet.UsedRange.Rows.Count 或 ActiveSheet.UsedRange.Columns.Count

wpcpa · 发表于 2009-8-27 10:03

End方法的使用有较多的限制，视情况使用CurrentRegion和UsedRange是比较好的

welky · 发表于 2009-10-11 14:22

原帖由 clothfish 于 2007-2-18 21:54 发表
QUOTE:sub 最后行数()dim rng as rangedim r as longset rng=activesheet.usedranger=rng.rows.countmsgbox rend sub同意楼上用usedrange，但需要修正rng.rows.count是有数据的行数，如果开始的几列没数据呢!应该是r ...

这个是不是判断整个工作表中最后有数据的行呢，但如果只要判断某指定列或指定区域中的最后一行该怎么弄呢？
谢谢！

lb_bn · 发表于 2009-10-11 14:25

这个还是要看什么情况。
一般情况下用xlup还是好点。

liushenglly · 发表于 2009-10-21 13:56

学习学习。。。

china047 · 发表于 2009-10-22 12:05

好东东，多谢提供

！！！

aleser · 发表于 2009-11-4 13:08

辛苦，学习ing

eidolonbear · 发表于 2009-11-12 21:53

好，学了一招

wangruoxu · 发表于 2009-11-16 10:28

以前不用会END属性,常用USEDRANGE
楼主真是有心人啊

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

end 属性辨析:

回复 1楼 wzsy2_mrf 的帖子