Filtered Row Count

问题

In VBA, I wish to find the row count of a filtered column, so I wrote VBA code as

FilteredRowCount = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count

But FilteredRowCount always return value of 1, what would cause this?

回答1:

Do like this

Sub test()
    Dim Ws As Worksheet
    Dim rngDB As Range
    Dim r As Integer
    Dim rng As Range

    Set Ws = ActiveSheet
    Set rngDB = Ws.UsedRange.SpecialCells(xlCellTypeVisible)

    For Each rng In rngDB.Areas
        r = r + rng.Rows.Count
    Next rng
    MsgBox r

End Sub

来源：https://stackoverflow.com/questions/62400102/filtered-row-count