EXCEL VBA Specialcells读取行

Question

我正在使用Excel中的表（ListObject）。 我通过VBA在工作正常的表上应用过滤器。 我想从过滤表中读取特定行（或行，列）。 我尝试使用SpecialCells返回一个单元格范围。 但我想像listobject.listrows（N）这样的行进行迭代，其中n是行数。 我没有找到任何例子。 当然，我可以逐个单元地迭代并通过公式定位该行。 但是我想知道是否存在更好的方法。

例如：我想用几个条件过滤一个表，并用特定的值更新某些列。

我希望我清楚我的问题。 谢谢。

Answer 1

您可以像这样循环行

Option Explicit
Sub test()
    Dim rng As Range
    With ActiveSheet.ListObjects(1).DataBodyRange
        For Each rng In .SpecialCells(xlCellTypeVisible).Rows
            Debug.Print rng.Address
        Next rng
    End With
End Sub