使用基于数组数组的VBA删除excel中的多行

Question

我用一些标准填充了一组数字,然后我想要删除的是这个区域中的所有行.

基本上我通过一个列,如果在该特定行中,此列中的单元格符合条件,我将该行号添加到数组中.完成所有行后,我想删除所有行号.

我很难弄清楚如何一次删除所有行,因为很明显,如果我一次删除一行,则行号会随着前一个或下一个被删除而改变.因此,我想一起选择所有行,然后一次只调用所有行上的Delete命令.有任何想法吗？

Answer 1

Sub Tester()
Dim arr
    arr = Array(3, 5, 7, 9)
    ActiveSheet.Range("A" & Join(arr, ",A")).EntireRow.Delete
End Sub