需要仅迭代自动筛选范围中的行(目的是获取行索引)?
我尝试过这个块:
For Each ele In rng
RowInd = ele.Rows.Address
RowNum = Split(RowInd, "$")(2)
Next ele
这会在 rng 中的所有 Cell 中进行迭代。但我不需要这个。我需要迭代该范围内每一行中的任何一个单元格(例如第 2 列或第 1 列中的任何单元格)。
我会用 tempRng 来做到这一点。
首先,您必须像 Mirg 所说的那样执行此操作,并为 tempRng 提供您想要循环的列。
你应该这样做的循环。
For Each ele In tempRng.SpecialCells(xlCellTypeVisible)
所以你只会 Poop 过滤范围。
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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)