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

donghua200

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 D:\Program Files\Tencent\qq\图片收藏夹\22.jpg

[此贴子已经被作者于2005-6-1 13:13:37编辑过]

ZHENSIQIU

8楼的最好

wuchurong

Range(Selection, Selection.End(xlDown)).Select
activesheet.Cells.SpecialCells(xlCellTypeVisible).Rows.Count

mqmelon

这个帖子有点久了，但是还是回复一下吧。因为我最近也遇到了这个问题。查了很久都没有找到好的方法。后来发现，Range.Areas.count就可以直接取到这个值。
sheets("").range("").specialcells(xlTypeVisibal).areas.count,这个就会返回筛选后的可见行数，包括标题行，所以去掉标题行就可知筛选行数。

myqq530

Range("A2:A123").SpecialCells(12).SpecialCells(2, 23).Count
只要这样就可以了

aqua516

1. Sub readFilterRow()
   
2.     Rem 思路：将数据放在Sheet1中，将筛选结果放到Sheet2中，获取Sheet2的已用区域行数，最后清空Sheet2
   
3.     Rem 不足：这是一种间接的方式，不能直接记录筛选结果的行数
   
4.     With Sheet1.UsedRange
   
5.         .AutoFilter Field:=1, Criteria1:="XX"   '在Sheet1的第1列，执行筛选，关键字为"XX"
   
6.         .SpecialCells(xlCellTypeVisible).Copy Sheet2.Cells(1, 1) '将筛选结果复制到Sheet2里面
   
7.         .AutoFilter  '解除筛选状态
   
8.     End With
   
9.     MsgBox "筛选出" & Sheet2.UsedRange.Rows.Count - 1 & "行" '减1是为了减掉列标题所在那一行
   
10.     Sheet2.Cells.Clear '清空筛选结果
    
11. End Sub

复制代码

hwd6

myqq530 发表于 2013-12-18 14:46
Range("A2:A123").SpecialCells(12).SpecialCells(2, 23).Count
只要这样就可以了

15楼为正解，14楼验证过不行

重王泉

myqq530 发表于 2013-12-18 14:46
Range("A2:A123").SpecialCells(12).SpecialCells(2, 23).Count
只要这样就可以了

通过实际测试，这个方法是有效的，

hwd6

username 发表于 2005-6-1 12:44
用subtotal吧   Application.WorksheetFunction.Subtotal(3, Range("c4:c21"))SUBTOTAL
　　用途：返回数 ...

只有9楼的答案最简单和真正可行

hwd6

只有9楼的答案最简单和真正可行