如何批量删除word中的表的所有空白行？

作者：绿色风分类：时间：2022-08-18 浏览：101

楼主
wise

Q:如何批量删除word中的表的所有空白行？
A:ALT+F11→插入模块→模块中输入以下代码：

Sub test()
On Error Resume Next
Dim myTable As Table
Dim str As String
Dim myrow As Row
Dim myCell As Cell
Dim i As Long
str = ""
For Each myTable In ActiveDocument.Tables '循环当前文档的表
For Each myrow In myTable.Range.Rows '循环表中单元格每一行
For Each myCell In myrow.Cells '循环行中每一个单元格
str = str & Trim(myCell.Range) '组合每个表格的值
Next
If Len(Trim(str)) < (myTable.Range.Columns.Count * 2 + 1) Then '判断行是否为空行，如果是，则全部选取并删除
myrow.Range.Select
Selection.Rows.Delete
End If
str = "" '清空str
Next '继续循环每一行
Next '循环当前文档的工作表
End Sub

tset.rar

2楼
啉啉珊

我有个更好的办法，就是利用“定位”。全选数据，F5(定位），定位条件，选择“空值”。右键“删除”

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表