如何批量删除word文档里的空白行.doc

如何批量删除word文档里的空白行 2008-4-12 21:14:00 如何批量删除word文档里的空白行［推荐方案］高效解决方案勾选通配符查找内容： ^13{2,}替换为： ^p全部替换此替换是把2至255个相邻的段落标记替换为一个，也就是删除多余的段落标记（也就是空行）！[说明]重复几次（一般一次是不是就够了吧？哪有连续256个空白行的？），直到替换处数为1，因为最后一个空行无法如此删除，点击“查找下一处”，过去看看，手工删吧。 在做此替换之前，最好先做一下准备工作,这样会删的更彻底：点击：编辑－替换查找内容： ^w^13替换为： ^p全部替换此替换是把段落标记前面多余的空白部分删除！再次点击：编辑－替换查找内容： ^13^w替换为： ^p全部替换此替换是把段落开始处多余的空白部分删除！如果空行不是太多，也可以这样解决： 点击：编辑－替换查找内容： ^w^13替换为： ^13全部替换此替换是把段落标记前面多余的空格删除！ 然后：查找内容： ^13^13替换为： ^p全部替换此替换是把两个相邻的段落标记替换为一个，也就是删除多余的段落标记（也就是空行）！[说明]^w指空白区域（包括空格），^13表示段落标记，也可以用^p表示。重复几次，直到替换处数为1，因为最后一个空行无法如此删除，点击“查找下一处”，过去看看，手工删吧。Sub blankdel() For Each i In ActiveDocument.Paragraphs a = i.Range.End b = i.Range.Start If a - b = 1 Then i.Range.Delete m = m + 1 End If Next i MsgBox 共删除空白段落 m 个 End Sub笔者利用Excel程序从一文本文件中导入数据后，发现导入后的Excel工作表中杂乱地分布着许多空白行（见图4），这样既影响使用又很不美观。经过一段时间摸索后，终于找到了在Excel中快速删除空白行的几种方法，下面就介绍给大家。 筛选法1. 选中工作表中包括全部数据的单元格区域（这里是A1至C23单元格区域）。2. 选择“数据”菜单中“筛选”项目下的“自动筛选”命令，此时自动筛选箭头就出现在筛选清单中的列标题的右侧，单击A列标题（编号列）右侧的自动筛选箭头，然后从下拉列表中单击“非空白”选项，这时可以看到Excel自动将所有空白行隐藏起来，只显示非空白行数据。 3. 由于使用自动筛选功能后，只是将符合筛选条件的行显示出来，并未将工作表中空白行进行删除，为了得到不包括空白行的工作表，我们需再进行下面的操作。⑴ 将经过自动筛选后的工作表（Sheet1）选中，单击工具栏上的“复制”按钮。⑵ 单击Sheet2工作表标签，打开工作簿中另一张工作表，然后单击工具栏上的“粘贴”按钮，这样，在Sheet2中得到的工作表就不再包括空白行了。注意，使用此方法时，用户在选择自动筛选的列标题时，必须选择列数据最完整的列进行筛选，否则就会出现错误筛选结果。 排序法1. 选中工作表A1单元格，从“插入”菜单中选择“列”命令，在工作表首行插入一空白列，此时工作表中原A列就变为B列了。2. 在A1单元格中输入数字“1”，然后用鼠标右键拖动填充柄至A23单元格，松开鼠标右键，在弹出的右键菜单中选择“序列”命令，打开“序列”对话框，在“类型”中选择“等差序列”，点击“确定”按钮返回工作表，此时在工作表中A列填充了从1至23的等差序列数据。3. 从工具菜单中选择“排序”命令，先将“列表”类型选择为“无标题行”，然后在“主要关键字”下拉列表中选择“按列B”升序方式排序，点击“确定”按钮进行排序。4. 执行排序后，可以看到所有的空白行全部排列到数据行的下方位置了，用鼠标将不包括空白行在内的单元格区域选中，然后从工具菜单中选择“排序”命令，先将“列表”类型选择为“无标题行”，然后在“主要关键字”下拉列表中选择“按列A”升序方式排序，点击“确定”按钮进行排序。5. 选中A列，然后点击鼠标右键，从右键菜单中选择“删除”命令，这时就可以得到一个格式正确且没有空白行的工作表了。 使用“宏”删除空白行在Excel中，“宏”功能是相当强大的，利用“宏”我们可以完成许多Excel菜单功能之外的特殊功能，下面就介绍如何利用“宏”功能实现在工作表中删除空白行的操作方法。1. 启动Excel程序，选择“工具”菜单中“宏”项目下的“宏”命令，进入“宏”对话框，在“宏名”输入框中输入宏名称“删除空白行”，然后单击“创建”按钮，进入“宏”编辑程序界面。2. 在“宏”编辑窗口中，在“Sub 删除空白行()”语句下依次录入如下语句： Dim i Dim x Dim kx = 0 For i = 1 To Range(Cells(1,