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

晓月清风

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：含有空白行



图2：运行宏删除空白行后






(VBA-相关文章技巧链接)：
[分享] Excel宏代码：删除使用区域内的空白行

晓月清风

这个宏不是很实用，但是设计思路倒还不错

douyi

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

ui

以下是引用douyi在2005-7-10 16:52:00的发言：



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

请教用自动筛选如何做?

晓月清风

选取数据区，“数据”-“自动筛选”-“选取空白”-手动删除掉空白行；然后再“数据”-“自动筛选”显示删除空行后的结果

xinghaifuyun

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

心可以清

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