过滤行数 [英] Filtered Row Count

问题描述

在VBA中，我希望找到已过滤列的行数，因此我将VBA代码写为

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

但是FilteredRowCount始终返回值1，这会导致什么呢?

But FilteredRowCount always return value of 1, what would cause 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

这篇关于过滤行数的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！