在日常工作中，我们经常遇到这样的情况：拿到一个Word文档或从网上荡下来的文本粘贴到Word文档里，发现里面有很多空白行，本来只有两页的内容，硬生生整出了五页，页面不紧凑打印也很费纸张。比如下面这样，
如果只有一页或几行，我们可以手动删除空白行，但是如果有很多页，手动就太费时间了，而且也是个体力活，那么我们要如何快速整理成下图这样的结果呢？
如果文本是像上面这样一行隔一行空白行的话，我们可以用查找替换的方法来处理，
点击全部替换，可以得到如下结果，我们可以看到还有两个空白行没有干掉，用这种方法如果空白行间隔比较混乱，就需要多次点击全部替换，才能将所有空白行全部删掉。另外如果是网上荡的内容粘贴后是硬回车的话查的内容输入处还要改为^l^l。
有没有一次操作就删掉所有空白行，而且不管是硬回车还是软回车的方法呢？当然是有的，不过这就得借助用VBA代码了。下面请看具体代码：
好了，今天的内容就是这些了，欢迎关注@Excel小王子，Excel学习，E路有你。
