如何自动删除excel中的空白行?

 我来答
手机用户24246
2018-02-02 · TA获得超过423个赞
知道小有建树答主
回答量:717
采纳率:0%
帮助的人:0
展开全部
也不能说人家不对,提问者一开始就说要自动的,如果真的要手动删除,就没必要拿到百度上来问了。

把下列代码复制过去,运行一下就行了,此代码是基于Sheet1的A列中的单元格为空时删除行的,而且只考虑20行,多的话,可以将20改大一些,除非你真的有几万行的数据,否则不要在整列中做循环,会影响系统运行的。
还想更自动的话,可以把此代码放在工作簿打开事件、关闭事件,或工作表事件中去。
Sub DelBlank()
For i = 20 To 1 Step = -1
If Sheet1.Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next i
End Sub

对,你说得没错。在连续两个都是空行的时候,就会存在这样的问题,还是有的空行删不了。只有多运行一两遍代码了。
不过,我已经修改了一下代码,从后往前循环,就没有问题了。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式