如何批量删除excel中的空白行

今天朋友遇到了这个问题，然后我找了一下，在这里整理和大家分享一下吧。

例如我有一个这样的excel，我想去除所有的空白行，如下图

 

 

 

 

 

 

 

 

 

 

 

 

 

 

我们需要使用vb的方法来解决，找到上图右上角的“宏”，点击选择“录制宏”，随便起个名字，

然后再选择“查看宏”可以看到下图

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

选中你刚才创建的宏的名字，然后选择编辑，可以看到下图

 

 

 

 

 

 

 

 

 

 

 

 

然后在代码区输入以下代码

Sub DelBlank()
For i = 20 To 1 Step -1
If Sheet1.Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next i
End Sub

代码的意思是删除sheet1中1到20行中的空白行，大家可以按照需求修改达到最佳效果

i=20就是到20行的意思，可以改成你需要数字

第三行Sheet1，如果你是其他sheet自己按照需求修改即可

然后就是点击上图中工具栏中的运行进行运行，然后你的excel就会发生变化了哦。