删除使用宏空行，行X

我发现在另一个帖子此宏后：删除使用宏空行，行X

Sub DelBlankRows() 

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

End Sub

可以这样修改，使得它仅x行（行14电子表格后删除行，我目前正在研究）？

谢谢！

来源

2014-10-28 Alex S

这是相当简单的。

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

只需交换所需行的x和y即可。

另外，最好避免不必要地选择范围，因为它只会减慢速度。任何时候你选择一个范围，然后对选择做一些事情，你可以直接在范围上直接执行那个动作。

编辑：只是重新读取的问题 - 那么试试这个：

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

来源

2014-10-28 11:22:58 Dave

为了澄清，我应该更换 Selection.EntireRow.Delete 与行（X＆ “：” ＆ y）.EntireRow.Delete ？在删除范围内的所有行时，列A中的单元格是否为空。当列A中的单元格为空时，我只需要删除该行。 – 2014-10-28 11:31:55

我猜编辑解决了这个问题，你能否确认我正在替换哪些代码部分？ – 2014-10-28 11:35:53

为了读者的利益，对于VBA和我一样没有经验的人，完整的宏是：Sub DelBlankRows（）范围（“A14：A”＆Cells.SpecialCells（xlCellTypeLastCell）.Row）.SpecialCells（xlCellTypeBlanks）.EntireRow 。删除 End Sub – 2014-10-28 11:39:46

删除使用宏空行，行X

回答

相关问题