今天朋友遇到了这个问题,然后我找了一下,在这里整理和大家分享一下吧。
例如我有一个这样的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就会发生变化了哦。