[分享] Excel宏代码:删除使用区域内的空白行

2005-06-27 00:07:00
晓月清风-Office交流网
原创
2041
Sub DeleteEmptyRows()
    lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = lastrow To 1 Step -1
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
    Application.ScreenUpdating = True
End Sub
图1:含有空白行
TqY7wVwz.jpg
图2:运行宏删除空白行后

 pvYNjmXQ.jpg


晓月清风
设计思路倒还不错

douyi
这个问题用自动筛选就可以很容易解决的啊

晓月清风
选取数据区,“数据”-“自动筛选”-“选取空白”-手动删除掉空白行;然后再“数据”-“自动筛选”显示删除空行后的结果

xinghaifuyun
谢谢斑竹的共享,我还真要用呢,太谢谢了?还有没有其他类似的小程序呢?

心可以清
用定位"空值"也应该可以的.说到小程序的话,可能先录个看看效果,嘿嘿.

(VBA-相关文章技巧链接):
Access 2007 中的用户级安全
快捷键大全
Excel 97/VBA技术讲座之六
EXCEL技巧53例三
分享