VBA代码在几个工作表中隐藏了许多固定的离散行

Question

我正在编写一个宏的部分解决方案,我正在编写,它会隐藏几个不同工作表中的某些(固定位置)行.我目前有:

Sheets(Sheet1).Range("5:20").EntireRow.Hidden = True

隐藏Sheet1中的行5-20.我还想隐藏(为了争论),Sheet2中的第6行,第21行和第35-38行 - 我可以通过重复上面的代码行3次来做到这一点; 但我确信有更好的方法可以做到这一点,就像学习练习一样.

任何帮助非常感谢:)

克里斯

Answer 1

指定Union一些范围如下

With Sheet1
    Union(.Range("1:5"), .Rows(7), .Range("A10"), .Cells(12, 1)).EntireRow.Hidden = True
End With