015-优化“删除空单元格所在行”-疑难千寻千解丛书（VBA）

小妖

ET疑难千寻千解丛书之EXCEL2010编程与实践

罗刚君 章兰新 黄朝阳 编著

疑难15
如何优化过程“删除空单元格所在行”

批量删除工作表中的空行是比较常见的操作，其代码如下，可以简化吗？

1. 
   
2. Sub 删除空单元格所在行()
   
3.   Dim i As Integer
   
4.   Application.ScreenUpdating = False  '关掉屏幕刷新从而提速
   
5.   For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1         
   
6.   '循环判断B列所有数据
   
7.     If Len(Cells(i, 2)) = 0 Then Cells(i, 2).EntireRow.Delete         
   
8.     '如果字符长度为0则整行删除
   
9.   Next
   
10.   Application.ScreenUpdating = True  '恢复屏幕更新
    
11. End Sub
    

复制代码

è解决方案

利用定位法一步完成删除空单元格所在行。

í操作方法

步骤1
不采用循环方案，而用定位法，代码如下：

1. 
   
2. Sub 删除空单元格所在行2()
   
3.   On Error Resume Next  '防止不存在空单元格时出错
   
4.   '定位B列的空单元格，然后整行删除
   
5.   Range([b2], Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
6. End Sub
   

复制代码

步骤2
分别执行两段代码，均可实现B列空单元格整行删除的需求，但优化后的过程效率较高。

=============================

以上摘自《EXCEL2010编程与实践》

小妖

妖言：

SO，要学好VBA之前，技巧的功底还是要打滴……

放浪形骸

回复 小妖 的帖子

不过小妖老师，这个只是适合某些特定的情况。
比如说若列A和列B都有数据和空格，我们需要删除两列都是空格的情况下，好像就应该用循环了，定位好像。。我还没想到该怎么用。。

杰

楼上的这个两列的，还是用定位啊。

放浪形骸

回复 杰 的帖子

SpecialCells(xlCellTypeBlanks)
这个就是定位空格啊

UNA123

{:011:}{:011:}{:011:}{:011:}

fulljy

辛苦了，多谢分享！