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

w2001pf

1	1	1
2	2	2
3	3	3
4		4
5		5
6		6
7
8
9
	10	12

上面是A，B，C三列数据。B列有3行数据，用VBA如何表示单元格B3的行数，即3，类似的，如何表示单元格C6的行数，即6。也就是每列非空的连续单元格最后一个非空单元格的行数。

最佳答案

月排行榜 / 总排行榜

甲百

2013-7-20 10:15

建议上传一个表,这样的话,太有规律这,用xldown就可以了 range("b1").end(xldown).row

跳转到最佳答案楼层

windimi007

这个意思？{:4512:}

1. Cells(3, 2).Row

复制代码

1. Cells(6, 3).Row

复制代码

w2001pf

windimi007 发表于 2013-7-20 10:09
这个意思？

不是。每列连续的最后一个非空单元格。

windimi007

w2001pf 发表于 2013-7-20 10:11
不是。每列非连续的最后一个空单元格。

这样？

1. Cells(1, 2).End(xlDown).Row

复制代码

1. Cells(1, 3).End(xlDown).Row

复制代码

ppp710715

B3的行数可用Cells(3,"B").row或Cells(3,2).row表示，同理
C6的行数可用Cells(6,"C").row或Cells(6,3).row表示……

w2001pf

ppp710715 发表于 2013-7-20 10:12
B3的行数可用Cells(3,"B").row或Cells(3,2).row表示，同理
C6的行数可用Cells(6,"C").row或Cells(6,3).row ...

不是这个意思的。

甲百

建议上传一个表,这样的话,太有规律这,用xldown就可以了 range("b1").end(xldown).row

ppp710715

[a65536].end(xlup).row
[b65536].end(xlup).row
[c65536].end(xlup).row

w2001pf

ppp710715 发表于 2013-7-20 10:15
[a65536].end(xlup).row
.end(xlup).row
[c65536].end(xlup).row

不是这样的。它们的后面有数字嘛。

ppp710715

不好意思，看错题目了。
4楼正解！