VBA - 隐藏单独的行,没有范围

VBA - Hide individual rows, no range

我对 VBA 很陌生,所以这可能是一个非常基本的问题,但不知何故我无法在互联网上找到解决方案。

我有一个切换按钮,点击它应该 hide/unhide 一些行。唯一的问题是我不希望(取消)隐藏一系列行,而只希望隐藏一些预选行(例如,仅第 1、4、7 和 9 行)。

我在互联网上进行了搜索,但似乎所有内容都是关于行的范围而不是单个行。

Private Sub RWCATSHC()
    With Rows("227:243")      (this part I want it to be just a few selected ones)
        .Select
       .EntireRow.Hidden = Not .EntireRow.Hidden
    End With
End Sub

如前所述,这可能是一个非常基本的问题,但我是新手,因此非常感谢任何帮助。

提前致谢!

这会起作用:

Private Sub RWCATSHC()


     Rows(1).EntireRow.Hidden = Not Rows(1).EntireRow.Hidden
     Rows(4).EntireRow.Hidden = Not Rows(4).EntireRow.Hidden
     Rows(7).EntireRow.Hidden = Not Rows(7).EntireRow.Hidden
     Rows(9).EntireRow.Hidden = Not Rows(9).EntireRow.Hidden

End Sub