选择下一个可见行（如按{向下}）

Question

我做了很多研究，找到了一个对我部分有用的代码。
我想要的只是一个代码，只需转到下面的下一个单元格，但行已被过滤。
这段代码的问题是它转到第一行（标题），然后偏移到下一行。

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

我花了一整夜的时间在谷歌上搜索并阅读有关

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

Answer 3

其实还有更好的方法。 SendKeys 关键字将指示应用程序模拟按键或按键组合。这样你就可以“按下键”并向下移动一个可见的单元格。

有关如何使用的更多信息，请参阅文档：

https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/sendkeys-statement