excel - 引用一组非连续行的紧凑方法是什么？

Question

下面的代码看起来不优雅且浪费。是否有更紧凑的符号来引用所有这些行？

Sub HideEBRedData()
'un/hide EIRP Budget rows with redundant path data
Application.ScreenUpdating = False

Set EIRPBudget = Sheets("EIRP Budget")

With EIRPBudget
    .Rows(29).Hidden = Not .Rows(29).Hidden
    .Rows(30).Hidden = Not .Rows(30).Hidden
    .Rows(50).Hidden = Not .Rows(50).Hidden
    .Rows(51).Hidden = Not .Rows(51).Hidden
    .Rows(54).Hidden = Not .Rows(54).Hidden
    .Rows(55).Hidden = Not .Rows(55).Hidden
    .Rows(65).Hidden = Not .Rows(65).Hidden
    .Rows(66).Hidden = Not .Rows(66).Hidden
End With

Application.ScreenUpdating = True
End Sub

Simoco 提供了我正在寻找的答案。这里是:

Sub HideEBRedData()
'un/hide EIRP Budget rows with redundant path data
Application.ScreenUpdating = False

Dim r As Variant

Set EIRPBudget = Sheets("EIRP Budget")

For Each r In Array(29, 30, 50, 51, 54, 55, 65, 66)
    EIRPBudget.Rows(r).Hidden = Not EIRPBudget.Rows(r).Hidden
Next

Application.ScreenUpdating = True
End Sub

Answer 1

作为评论的跟进，此代码是 OP 寻找的:

Sub HideEBRedData()
    Dim r As Variant

    Application.ScreenUpdating = False

    Set EIRPBudget = Sheets("EIRP Budget")
    For Each r In Array(29, 30, 50, 51, 54, 55, 65, 66)
        EIRPBudget.Rows(r).Hidden = Not EIRPBudget.Rows(r).Hidden
    Next

    Application.ScreenUpdating = True
End Sub