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

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

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

exceltest1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

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

exceltest2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

exceltest3

 

 

 

 

 

 

 

 

 

 

 

 

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

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就会发生变化了哦。

 

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据