Excel VBA 自动删除空白行
想要VBA代码,实现自动删除空白行的功能要删除WORKBOOK中所有WORKSHEET(总共4个,SHEET1至SHEET4)的空白行,让每份表的内容都是连着的,不会有中...
想要VBA代码,实现自动删除空白行的功能
要删除WORKBOOK中所有WORKSHEET(总共4个,SHEET1 至 SHEET4)的空白行, 让每份表的内容都是连着的,不会有中间隔一行空的情况出现
注:每份SHEET里,有内容的列号都是:A至M;行号就不固定了,有的一千多行,有的几百行 展开
要删除WORKBOOK中所有WORKSHEET(总共4个,SHEET1 至 SHEET4)的空白行, 让每份表的内容都是连着的,不会有中间隔一行空的情况出现
注:每份SHEET里,有内容的列号都是:A至M;行号就不固定了,有的一千多行,有的几百行 展开
8个回答
展开全部
我有一段代码可以根据指定字符删除列:
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
希望对你有用
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
希望对你有用
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
能把表发给我,看一下吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询