如何用VBA计算将自动筛选后结果的行数,急!!

cdchenghui

如何用VBA计算将自动筛选后结果的行数,(筛选后行不连续)急!!

orientson

筛选后用currentregion复制到新表中，再在新表中解决即可。

Long_III

也可以做一个循环，选择第一列的可见单元格，代码：

Sub Macro1()

Range("C4:D21").AutoFilter Field:=1, Criteria1:=">5" Set rng = Range("C4:C21").SpecialCells(xlCellTypeVisible) For Each c In rng s = s + 1 Next Debug.Print s

End Sub

aurora

Sub test()

Dim rng As Range

Dim i As Long

Dim theArea As Range

Set rng = Sheet1.Cells

rng.AutoFilter Field:=1, Criteria1:="2"

Set rng = rng.SpecialCells(xlCellTypeVisible)

For Each theArea In rng.Areas

i = i + theArea.Rows.Count

Next

MsgBox i

End Sub

然后呢?

glober609

Sub Macro1()

'下面的语句有什么作用么？我认为不用这条语句也可以，利用specialcells(xlcelltypevisible)与for each ... in ...就可以了

'Range("C4:D21").AutoFilter Field:=1, Criteria1:=">5" Set rng = Range("C4:C21").SpecialCells(xlCellTypeVisible) For Each c In rng s = s + 1 Next Debug.Print s

End Sub

Long_III

'Range("C4:D21").AutoFilter Field:=1, Criteria1:=">5"

这个是筛选啊，筛选之后才设定区域，我在我的例子中是这样做的，楼主根据需要自己改，这只是思路

4楼的例子挺好了，避免了选取第一列

figfig

'新思维

Sub fig()

with ActiveSheet.AutoFilter.Range For i = .row To .row+.rows.count

If Rows(i).Hidden = False Then s = s + 1 Next

end with MsgBox s End Sub

[此贴子已经被作者于2005-6-1 9:38:04编辑过]

cdchenghui

谢谢大家！感觉代码还是太长，还有没有更简单的方法？

username

用subtotal吧 Application.WorksheetFunction.Subtotal(3, Range("c4:c21"))

SUBTOTAL 　　用途：返回数据清单或数据库中的分类汇总。如果用户使用“数据”菜单中的“分类汇总”命令创建了分类汇总数据清单，即可编辑SUBTOTAL函数对其进行修改。 　　语法：SUBTOTAL(function_num，ref1，ref2…) 　　参数：Function_num为1到11之间的自然数，用来指定分类汇总计算使用的函数(1是AVERAGE；2是COUNT；3是COUNTA；4是MAX；5是MIN；6是PRODUCT；7是STDEV；8是STDEVP；9是SUM；10是VAR；11是VARP)。Ref1、ref2…则是需要分类汇总的1到29个区域或引用。 实例：如果A1=1、A2=2、A3=3，则公式“=SUBTOTAL(9，A1:A3)”将使用SUM函数对“A1:A3”区域进行分类汇总，其结果为6。

shuiyuan

这个最简单