vba - 如何仅遍历 Excel VBA 中自动筛选工作表中的行？

Question

需要仅遍历自动过滤范围中的行(目的是获取行索引)吗？

我试过这个大牌:

For Each ele In rng 
    RowInd = ele.Rows.Address
    RowNum = Split(RowInd, "$")(2)
Next ele

这会在 rng 中的所有单元格中进行迭代。但我不需要这个。我需要遍历该范围内每一行中的任何一个单元格(比如第 2 列或第 1 列中的任何单元格)。

Answer 1

我会用 tempRng 来做到这一点。

首先，您必须像 mirg 所说的那样执行此操作，并为 tempRng 提供您要循环的列。

你应该这样做的循环。

For Each ele In tempRng.SpecialCells(xlCellTypeVisible)

所以你只会循环过滤范围。

Dim Rng As Range
Dim tempRng As Range

Set Rng = ActiveSheet.Range("A2:D11")
Set tempRng = Rng.Columns(1)

    For Each ele In tempRng.SpecialCells(xlCellTypeVisible)
        RowInd = ele.Rows.Address
        RowNum = Split(RowInd, "$")(2)
    Next ele