代码如何改进

jstvic

为什么每次删除总是留下一行没删干净


求大神指点

batmanbbs

楼主要求说得不太清楚，我猜测是删除除了第一列之外都是空白的行。PS：如果空白行是连续的，可以添加一个布尔变量进行判断，以提高运行速度。
注意：表格不能有合并单元格

jstvic

batmanbbs 发表于 2023-5-31 18:22
楼主要求说得不太清楚，我猜测是删除除了第一列之外都是空白的行。PS：如果空白行是连续的，可以添加一个布 ...

大神  现在有合并单元格了  能麻烦再升级一下吗

batmanbbs

直接看楼下吧

batmanbbs

用你原来的，修改一处即可
PS：建议以后上传完整文档，这样才能解决具体问题，避免反复修改。

这段代码还有考虑不周全的地方，第一行有跨列的单元格会报错。针对你的表格再修改一处。

要完全适应就比较复杂了，需要以单元格为单位进行遍历，不能用行的方式。

jstvic

batmanbbs 发表于 2023-5-31 20:24
用你原来的，修改一处即可
PS：建议以后上传完整文档，这样才能解决具体问题，避免反复修改。

老师 有时间帮忙看下吗，  没有数字的表格 想要连带标题栏一起删除  这个能实现吗

batmanbbs

记得循环从最后一行开始。
其实，以楼主一楼代码的水平，自己修改一下应该没有啥问题啊：）

batmanbbs

1. Sub 删除表格空行()
   
2. '
   
3. '删除表格中除了第一列之外都是空白单元格的行
   
4. '
   
5.     Dim myTB As Table
   
6.     Dim i%, iRow%, iCol%, rStart&, rEnd&
   
7.     Dim isDel As Boolean
   
8. 
   
9.     If Selection.Tables.Count = 0 Then
   
10.         MsgBox "没有指定表格"
    
11.     Else
    
12.         isDel = False
    
13.         Set myTB = Selection.Tables(1)
    
14.         With myTB
    
15.             iRow = .Rows.Count
    
16.             iCol = .Columns.Count
    
17.             For i = iRow To 2 Step -1    '跳过表头第一行
    
18.                 rStart = .Cell(i, 2).Range.Start
    
19.                 rEnd = .Cell(i, iCol).Range.End
    
20.                 Text = ActiveDocument.Range(rStart, rEnd)
    
21.                 Text = Trim(Replace(Replace(Text, Chr(13), ""), Chr(7), ""))
    
22.                 If Len(Text) = 0 Then
    
23.                     If i = iRow Then
    
24.                         Text = .Cell(i, 1).Range
    
25.                         Text = Trim(Replace(Replace(Replace(Text, " ", ""), Chr(13), ""), Chr(7), ""))
    
26.                         If Text Like "[总合小]计" Then isDel = True: Exit For
    
27.                     End If
    
28.                     .Cell(i, 2).Select
    
29.                     With Selection
    
30.                         .SelectRow: .Rows.Delete
    
31.                     End With
    
32.                 End If
    
33.             Next i
    
34.         End With
    
35.         If isDel Then
    
36.             myTB.Delete
    
37.             With Selection
    
38.                 .MoveUp: .Paragraphs(1).Range.Delete
    
39.             End With
    
40.         End If
    
41.     End If
    
42.    
    
43.     Set myTB = Nothing
    
44. End Sub

复制代码

jstvic

batmanbbs 发表于 2023-6-1 11:50
记得循环从最后一行开始。
其实，以楼主一楼代码的水平，自己修改一下应该没有啥问题啊：）

老师 代码我试过了  还是删除除了第一列以外为空值的行数，想要改成下面这种效果，不甚感谢

batmanbbs

不会啊，我这里测试没有问题，这次增加了一些容错，请仔细校对