用VBA删除表格的空白行

413191246se

* 小花鹿 老师：好久不见！您的问题太深奥！好几位老师都出手了，但我看不懂代码，也奉献不了代码。
* 但我在此谨提前祝您：过年好！新年好！合家欢乐！万事如意！

小花鹿

大家看看我这个方法怎么样：
Sub DelRow1()
    Dim Myr&, Myc&, i&, s, r&, c&, ar
    With ThisDocument.Tables(1)
        Myr = .Rows.Count
        ReDim ar(1 To Myr, 1 To 2)
        For i = 1 To .Range.Cells.Count
            s = .Range.Cells(i).Range.Text
            r = .Range.Cells(i).RowIndex
            c = .Range.Cells(i).ColumnIndex
            If Len(s) > 2 Then
                ar(r, 1) = 1
            End If
            ar(r, 2) = c
        Next i
        For i = Myr To 1 Step -1
            If ar(i, 1) = "" Then
                .cell(i, ar(i, 2)).Select
                With Selection
                    .End = .Start
                    .Cells.Delete 2
                End With
            End If
        Next i
    End With
End Sub

batmanbbs

小花鹿 发表于 2024-2-4 09:03
大家看看我这个方法怎么样：
Sub DelRow1()
    Dim Myr&, Myc&, i&, s, r&, c&, ar

代码一点问题都没有，接着改写，老师勿怪

小花鹿

batmanbbs 发表于 2024-2-4 18:44
代码一点问题都没有，接着改写，老师勿怪

改得好！                                                                                                            

sylun

可以试试如下方法，只做了简单测试，不知其对复杂不规则表格能否适用。

1. Sub test()
   
2. '删除表格空行
   
3.     If ActiveDocument.Tables.Count = 0 Then Exit Sub
   
4.     Application.ScreenUpdating = False
   
5.     With ActiveDocument.Tables(1).Range.Cells(1).Range
   
6.         Do
   
7.             .Expand wdRow
   
8.             If Len(Replace(.Text, Chr(13) & Chr(7), "")) > 0 Then
   
9.                 If .Cells(1).RowIndex < ActiveDocument.Tables(1).Rows.Count _
   
10.                     Then .Start = .Next(wdCell).Start Else Exit Do
    
11.             Else
    
12.                 .Rows.Delete
    
13.             End If
    
14.         Loop Until .Information(wdWithInTable) = False
    
15.     End With
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码

413191246se

sylun 兄：好久不见！没事多来看看啊！预祝——过年好！新年好！合家欢乐！万事如意！

sylun

413191246se 发表于 2024-2-5 20:24
sylun 兄：好久不见！没事多来看看啊！预祝——过年好！新年好！合家欢乐！万事如意！

se兄您好！是很久没登录了，用的也没那么多了。祝老兄新年如意吉祥！

batmanbbs

sylun 发表于 2024-2-5 12:25
可以试试如下方法，只做了简单测试，不知其对复杂不规则表格能否适用。

sylun 老师这段代码的思路比较有意思，类似移动指针，学习了...
PS：才发现，自己以前过一个类似的代码，自己都忘了

小花鹿

sylun 发表于 2024-2-5 12:25
可以试试如下方法，只做了简单测试，不知其对复杂不规则表格能否适用。

这个方法很好                                                                                                

sylun

batmanbbs 发表于 2024-2-5 21:25
sylun 老师这段代码的思路比较有意思，类似移动指针，学习了...
PS：才发现，自己以前过一个类似的代码 ...

b兄好！我主要是想看看逐行循环的可行性并比较一下与逐格循环的处理速度。