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

2024年12月02日 19:50

有1个网友回答

网友（1）：

也不能说人家不对，提问者一开始就说要自动的，如果真的要手动删除，就没必要拿到百度上来问了。

把下列代码复制过去，运行一下就行了，此代码是基于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

对，你说得没错。在连续两个都是空行的时候，就会存在这样的问题，还是有的空行删不了。只有多运行一两遍代码了。
不过，我已经修改了一下代码，从后往前循环，就没有问题了。