Select 下一个可见行（例如按{向下}）

Question

我进行了大量研究，找到了部分适合我的代码。
我想要的只是一个代码，它只需转到 下面的下一个单元格 但行是 过滤的 .
此代码的问题在于它转到第一行 (header)，然后偏移到下一行。

With ActiveSheet.AutoFilter.Range
    Range("E" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Select
End With

我希望代码能做到这一点，但这些行不是连续的：

Answer 1

我用谷歌搜索了一下！

Sub GoToNextVisibleCellBelow()

    Do
        ActiveCell.Offset(1, 0).Select
    Loop While ActiveCell.EntireRow.Hidden = True

End Sub

Answer 2

我花了一整夜 google-ing 和阅读关于 Do While 的文档，想到使用 ActiveCell.EntireRow.Hidden = True，最后的想法是：

ActiveCell.Offset(1, 4).Activate 'because I want to activate column "E"
Do While ActiveCell.EntireRow.Hidden = True
  ActiveCell.Offset(1, 0).Activate
Loop

它就像一个魅力。
我希望它能帮助社区。

Select 下一个可见行（例如按{向下}）

Select next visible row (like pressing {down})

excel

vba

row

filtered