在第x行之后使用宏删除空白行

Question

我在另一篇文章中发现了这个宏：

Sub DelBlankRows()

Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

End Sub

是否可以修改它以便它只删除第x行后的行（我正在处理的电子表格中的第14行）？

谢谢！

Answer 1

这是相当简单的。

Rows(x & ":" & y).EntireRow.Delete

只需将x和y交换为您想要的行。

顺便说一句，最好避免不必要地选择范围，因为它只会减慢速度。无论何时选择范围然后对选择执行某些操作，您都可以直接在范围内执行该操作。

编辑：重新阅读问题 - 试试这个：

Range("A14:A" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete