[已解决]VBa导出为TXT时如何去掉空行

0713zb

855
856
857
858
859
860
868
869

在用Vba导出为文本时，如何去掉中间空行，如下图：

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-8-24 02:01

这样能达到楼主要求吗？

跳转到最佳答案楼层

hwc2ycy

导出前先清除空行，再导出TXT，工作簿不保存刚刚的修改。

askteller

同意楼上所说的：导出前先清除空行，再导出TXT。
删除空行的VBA代码：

1. Sub 删除空行()
   
2.     Range("A:A").SpecialCells(xlCellTypeBlanks).Delete
   
3.     'Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '删除整行
   
4. End Sub
   

复制代码

柳如烟

这样能达到楼主要求吗？

cdl_1

谢谢分享！！！！！！