如何删除空格行
这样大家就会了
操作方法
- 01
把下列代码复制过去,运行一下就行了,此代码是基于Sheet1的A列中的单元格为空时删除行的,而且只考虑20行,多的话,可以将20改大一些,除非你真的有几万行的数据,否则不要在整列中做循环,会影响系统运行的。还想更自动的话,可以把此代码放在工作簿打开事件、关闭事件,或工作表事件中去。
- 02
Sub DelBlank()For i = 20 To 1 Step = -1If Sheet1.Cells(i, 1) = "" ThenRows(i).DeleteEnd IfNext iEnd Sub
- 03
对,你说得没错。在连续两个都是空行的时候,就会存在这样的问题,还是有的空行删不了。只有多运行一两遍代码了。不过,我已经修改了一下代码,从后往前循环,就没有问题了。
赞 (0)