【分享】快速删除空行

心随你动 · 发表于 2011-2-28 01:30

快速删除空行
有时为了删除Excel工作簿中的空行，你可能会将空行一一找出然后删除，这样做非常不方便。你可以利用自动筛选功能来实现，方法是:先在表中插入新的一行(全空)，然后选择表中所有的行，单击“数据→筛选 →自动筛选”命令，在每一列的顶部，从下拉列表中选择“空白”。在所有数据都被选中的情况下，单击“编辑→删除行”，然后按“确定”，所有的空行将被删去。注意:插入一个空行是为了避免删除第一行数据。

zeze0708 · 发表于 2011-2-28 07:08

明白了操作过程中摸索

wdy1983 · 发表于 2011-2-28 07:29

很好，谢谢

zgq75468 · 发表于 2011-2-28 08:16

Sub 删除空行()
Dim i&
'这个循环一定得倒着来
For i = Range("A65536").End(xlUp).Row To 1 Step -1
      If Range("A" & i) = "" Then
         Rows(i).Delete
      End If
Next i
End Sub

390328249 · 发表于 2011-2-28 08:33

回复 zgq75468 的帖子

请教一下，这个方法还可以适用于一个工作薄中含多个工作表中含空白行吧，可以做到一次性删除吧！

zgq75468 · 发表于 2011-2-28 08:36

回复 390328249 的帖子

不适合，只适用于当前活动表

390328249 · 发表于 2011-2-28 08:39

我也想报VBA快速入门班，为什么不要我{:191:}

yqdong441 · 发表于 2011-2-28 09:07

插入新的空行是在最顶部，还是随便插入就行？

yqdong441 · 发表于 2011-2-28 09:07

插入新的空行是在最顶部，还是随便插入就行？

yqdong441 · 发表于 2011-2-28 09:08

插入新的一行，是在最顶部还是随便插入就行？

		自动登录	找回密码
密码			注册