[已解决]代碼簡化：刪除含有空白單元格的行

010203400

求高手，如下代碼是刪除含有空白單無格行的，請問可以簡化嗎?

    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-7-25 18:10

Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

跳转到最佳答案楼层

大灰狼1976

Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

xdragon

从我知道的知识里已经没的简化了 =、=

010203400

大灰狼1976 发表于 2013-7-25 18:10
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

我的代碼是：
Range("A1:A65536").Activate.Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

但總是提示錯誤
求解！！！

大灰狼1976

Range("A1:A65536").Activate.Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
不对，要么Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
要么Range("A1:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
不能同时使用

010203400

大灰狼1976 发表于 2013-7-25 18:19
Range("A1:A65536").Activate.Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
不对，要么Sel ...

感謝！測試通過。

不過，能幫忙說明一下原因嗎，我實在不太懂。

大灰狼1976

Range("A1:A65536").Activate的意思是激活单元格区域，这是个完整的句子，后面不可以添加代码。
Selection是指你当前选中的区域，这两者完全不一样，不能混用

大灰狼1976

还有改进的余地，如果你的A列实际行数不多（与65536差太多）的话，可以将
Range("A1:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
改为
Range("A1:A" & [A65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
可以加速