Question

Excel VBA 自动删除空白行

想要VBA代码,实现自动删除空白行的功能

要删除WORKBOOK中所有WORKSHEET(总共4个,SHEET1 至 SHEET4)的空白行, 让每份表的内容都是连着的,不会有中间隔一行空的情况出现

注:每份SHEET里,有内容的列号都是:A至M;行号就不固定了,有的一千多行,有的几百行

Answer 1

我有一段代码可以根据指定字符删除列：
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
希望对你有用

Answer 2

你把你的表上传附件看看吗

Answer 3

能把表发给我，看一下吗？