wrod中表格有合并单元格时，如何用宏实现批量删除存在空白单元格的行？。

Autumncq

问题：
word文档中有很多个表格，部分表格有合并单元格，现在想用宏代码实现批量删除带有空白单元格的行。
删除前：

删除前

删除后：

删除后

求助高手，大神。

zldccmx

1. Sub Zldccmx() '删除文档中所有表格中的空白行
   
2.     Dim T As Table, Rs, Cs, R, C, F As Boolean
   
3.     For Each T In ActiveDocument.Tables '遍历文档中的所有表格
   
4.         Rs = T.Rows.Count '表格总行数
   
5.         Cs = T.Columns.Count '表格总列数
   
6.         For i = Rs To 1 Step -1 '行循环
   
7.             F = False
   
8.             For j = Cs To 2 Step -1 '列循环    忽略第一列 ，如果要判断整行均为空，则是 For j = Cs To 1 Step -1
   
9.                 Z = Trim(Replace(Replace(T.Cell(i, j).Range.Text, Chr(7), ""), Chr(13), "")) '剔除单元格中的 空格、chr(7)、和回车符
   
10.                 If Z <> "" Then
    
11.                     F = True: Exit For '单元格非空，则退出本行的列循环，通知系统本行为非空 F = True
    
12.                 End If
    
13.             Next
    
14.             If Not F Then '本行为空白
    
15.                 T.Rows(i).Delete '删除本行
    
16.             End If
    
17.         Next
    
18.     Next
    
19. End Sub
    

复制代码

123YYM

运行后报错，错误是这行：  Z = Trim(Replace(Replace(T.Cell(i, j).Range.Text, Chr(7), ""), Chr(13), "")) '剔除单元格中的 空格、chr(7)、和回车符
代码是5941，集合所要求的成员不存在，请问怎么解决啊

sylun

可试试如下代码：

1. Sub test()
   
2.     '只有半角空格或全角空格或空白段落的单元格均视为空白单元格
   
3.     Dim i%
   
4.     Dim aTable As Table
   
5.     Application.ScreenUpdating = False
   
6.     For Each aTable In ActiveDocument.Tables
   
7.         With aTable.Cell(1, 1).Range
   
8.             Do
   
9.                 .Expand wdRow
   
10.                 If .Text Like "*[!" & Chr(7) & Chr(13) & " 　]*" = False Then
    
11.                     .Rows.Delete
    
12.                     i = i + 1
    
13.                 Else
    
14.                      .Move wdCell
    
15.                 End If
    
16.             Loop Until .End = aTable.Range.End
    
17.         End With
    
18.     Next
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "共删除了" & i & "行。"
    
21. End Sub

复制代码

zhanglei1371

123YYM 发表于 2022-3-2 18:52
运行后报错，错误是这行：  Z = Trim(Replace(Replace(T.Cell(i, j).Range.Text, Chr(7), ""), Chr(13), "" ...

上面代码测试没有任何问题。你的难道是WPS么？
建议换三台电脑试试。

HTbaican

看不懂！！！