Question

Excel VBA 自动删除空白行

Answer 1

sub
插入空行()

dim
i,
irow
as
integer

irow
=
range("a65536").end(xlup).row

for
i
=
1
to
irow
-
1

range("a"
&
(4
*
i
-
2)
&
":c"
&
(4
*
i)).entirerow.insert
shift:=xlshiftdown

next
i
end
sub
其中，a65536根据实际情况，选择某列作为基准列，原则该列组后一行即为记录的最后一行即可。

Answer 2

Sub
ClearBlank()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End
Sub
上面的这段代码可以帮你删除所有的空白行.但是我不知道能不能帮助你,最好是能把你的附件上传上来

Answer 3

我有一段代码可以根据指定字符删除列：
Sub
xx()
ary
=
Array("*AA*",
"*BB*",
"*CC*")
For
i
=
0
To
UBound(ary)
Cells.Replace
ary(i),
"=1/0"
Next
i
Cells.SpecialCells(xlCellTypeFormulas,
16).Delete
(3)
End
Sub
希望对你有用