Количество отфильтрованных строк

Question

В VBA я использовал sh, чтобы найти количество строк в отфильтрованном столбце, поэтому я написал код VBA как

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

Но FilteredRowCount всегда возвращает значение 1, что могло бы вызвать это?

Answer 1

Сделайте вот так

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