[已解决]怎样用VBA表示如图的单元格的行数

w2001pf

甲百 发表于 2013-7-20 10:15
建议上传一个表,这样的话,太有规律这,用xldown就可以了 range("b1").end(xldown).row

请教xldown这个是什么意思 ，有没有类似的帮助文件给我看一下。

甲百

w2001pf 发表于 2013-7-20 10:34
请教xldown这个是什么意思 ，有没有类似的帮助文件给我看一下。

end语句的四个参数
end(xlup) 相当于按ctrl+向上箭头
.......xldown相当于按ctrl+向下箭头
.......xltoright......................右......
.......xltoleft........................左......

w2001pf

甲百 发表于 2013-7-20 10:15
建议上传一个表,这样的话,太有规律这,用xldown就可以了 range("b1").end(xldown).row

又有一个问题了。如果某一列只有一行。用range("b1").end(xldown).row计算出来的怎么是65536了，而不是1呢？

甲百

w2001pf 发表于 2013-7-20 11:27
又有一个问题了。如果某一列只有一行。用range("b1").end(xldown).row计算出来的怎么是65536了，而不是1呢 ...

如果只有一行,你就需要判断一下啊
if range("b1")<>"" and range("b2")="" then
range("b1").row
else
range("b1").end(xldown).row
end if

w2001pf

甲百 发表于 2013-7-20 11:46
如果只有一行,你就需要判断一下啊
if range("b1")"" and range("b2")="" then
range("b1").row

知道了。谢谢！