[已解决]统计筛选状态下的行数

psp120

如题求助，我想统计出A列中的行数，所以用了如下代码。
Sub test()
Dim i As String
i = [a65536].End(xlUp).Row
MsgBox i
End Sub
但问题是A列是一个筛选，比如我想统计分别统计标准1下面的行数，标准2下面的行数，这样好像就行不通了。请问如何就绝或者有什么好的想法。谢谢~

最佳答案

月排行榜 / 总排行榜

roych

2015-4-16 11:27

subtotal函数不是可以么？为虾米还写神马vba？

跳转到最佳答案楼层

roych

subtotal函数不是可以么？为虾米还写神马vba？

psp120

roych 发表于 2015-4-16 11:27
subtotal函数不是可以么？为虾米还写神马vba？

因为我要做循环，在每个筛选的情况下，分情况讨论。所以我需要统计出行数。

psp120

roych 发表于 2015-4-16 11:27
subtotal函数不是可以么？为虾米还写神马vba？

哦哦，对的，刚理解错了。谢谢。

liu-aguang

n = Columns(1).SpecialCells(12).Count