Office中国论坛/Access中国论坛

标题: [分享] 宏代码：删除使用区域内的空白行 [打印本页]

作者: 晓月清风 时间: 2005-6-27 00:07
标题: [分享] 宏代码：删除使用区域内的空白行
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：含有空白行

[attach]11484[/attach]

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

[attach]11485[/attach]

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

作者: 晓月清风 时间: 2005-6-27 00:10
这个宏不是很实用，但是设计思路倒还不错

作者: douyi 时间: 2005-7-11 00:52
这个问题用自动筛选就可以很容易解决的啊

作者: ui 时间: 2005-7-11 17:10

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

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

请教用自动筛选如何做?

作者: 晓月清风 时间: 2005-7-21 21:28
选取数据区，“数据”-“自动筛选”-“选取空白”-手动删除掉空白行；然后再“数据”-“自动筛选”显示删除空行后的结果

作者: xinghaifuyun 时间: 2005-7-24 05:42
谢谢斑竹的共享,我还真要用呢,太谢谢了?还有没有其他类似的小程序呢?

作者: 心可以清 时间: 2005-7-25 18:26
用定位"空值"也应该可以的.说到小程序的话,可能先录个看看效果,嘿嘿.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)