Question

我有一个Excel ws＆＃34;每月数据＆＃34;。我正在尝试应用自动过滤器（xlFilterLastMonth）并计算过滤行数。

With Sheets("Monthly Data")                     
    .Range("A1:BB" & lastrow1).AutoFilter Field:=21, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynamic

MsgBox ws2.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count

End With

Answer 1

试试这个：

With Sheets("Monthly Data")
    .Range("A1:BB" & lastrow1).AutoFilter Field:=21, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynamic

    Set r = Intersect(ActiveSheet.AutoFilter.Range, Range("A:A"))
    Filtred_Rows_Count = Application.WorksheetFunction.Subtotal(103, r) - 1

    MsgBox Filtred_Rows_Count
End With

Answer 2

假设每列都有标题，那么试试这个

Dim Data1 As Range, Data2 As Range


Set Data1 = Sheets("Monthly Data").Range("A1:BB" & LastRow1)

Data1.AutoFilter Field:=21, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynamic

Set Data2 = Range(Cells(2, 21), Cells(LastRow1, 21)).SpecialCells(xlCellTypeVisible)

For Each cell In Data2
    i = i + 1
Next

Worksheets("Monthly Data").AutoFilterMode = False
MsgBox "The number of filtered rows is " & i

Answer 3

基于J.B.s回答：

With Sheets("Monthly Data")
    .Range("A1:BB" & lastrow1).AutoFilter Field:=21, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynamic

    Set r = Intersect(.AutoFilter.Range, .Range("A:A"))
    Filtred_Rows_Count = Application.WorksheetFunction.Subtotal(103, r) - 1

    MsgBox Filtred_Rows_Count
End With

过滤行VBA的计数不正确

3 个答案: