麻烦高手给个删除空白行的代码

3432b3v12v

文档中有多个表格，如果某表格中第一列的单元格为空，则删除此空白行（也就是说表格中某一行整行都为空）。

duquancai

今天闲来无事，写个WordVBA代码给你，千万不要说你不会用！！！！！！

Sub WordVBA()
    Dim t As Table, d As Document, i&
    Set d = ActiveDocument: If d.Tables.Count < 1 Then Exit Sub
    Application.ScreenUpdating = False
    For Each t In d.Tables
        For i = t.Range.Cells.Count To 2 Step -1
            If t.Range.Cells(i).ColumnIndex = 1 Then
                With t.Range.Cells(i).Range
                    .End = .End - 1
                    If Len(Trim(.Text)) = 0 Then
                        .Expand 10: .Select
                        Selection.TypeBackspace
                    End If
                End With
            End If
        Next
    Next
    Application.ScreenUpdating = True
    MsgBox "处理完毕！"
End Sub

3432b3v12v

WORD中测试没问题，可能我想的过于简单了，在EXCEL中好像不太行，早知道直接说在EXCEL中使用了，麻烦大神给调整一下。由于还在学习阶段，里面有点乱。万分感谢

wdpfox

duquancai 发表于 2017-12-23 22:06
今天闲来无事，写个WordVBA代码给你，千万不要说你不会用！！！！！！

Sub WordVBA()

杜老师，不知这个样本对不对，代码对它误删除。