视觉基础 – 删除多行

我想要使​​用macros代码删除VBA中的多行Excel：

Sub sbDeleteARowMulti() Rows("1:3").Delete End Sub 

不过，我想改变这一点，以便我可以一次删除多个行集，例如1：200和404：1023和1230：1339等。有没有一个简单的方法来做到这一点？

非常感谢。

Answer 1

单程：

 Application.Union( _ Rows("1:200"), _ Rows("404:1023"), _ Rows("1230:1339")).Delete 

要么

 Range("1:200, 404:1023, 1230:1339").Delete