VBA-隐藏单个行,没有范围



我是VBA的新手,所以这可能是一个非常基本的问题,但是我无法在Internet上找到解决方案。

我有一个切换按钮,该按钮应通过单击来隐藏/解开一些行。唯一的事情是,我不希望(UN(隐藏一系列行,而只需要几个预选的行(例如,仅第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