用VBA删除表格的空白行

小花鹿

原表格：



要求效果：



附件：

代码实验.rar (17.02 KB, 下载次数: 26)

2024-2-1 09:07 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub test()
    Dim m&, n&, i&, j&, strJoin$
    On Error Resume Next
    With ActiveDocument.Tables(1)
        m = .Range.Rows.Count
        n = .Range.Columns.Count
        For i = m To 1 Step -1
            strJoin = Empty
            For j = 1 To n
                strJoin = strJoin & Left(.Cell(i, j).Range.Text, Len(.Cell(i, j).Range.Text) - 2)
            Next j
            If Len(strJoin) = False Then
                .Cell(i, 1).Select
                Selection.Cells.Delete ShiftCells:=wdDeleteCellsEntireRow
            End If
       Next i
    End With
End Sub

gwjkkkkk

请参考附件。。。

小花鹿

gwjkkkkk 发表于 2024-2-1 20:54
请参考附件。。。

结果不正确

gwjkkkkk

小花鹿 发表于 2024-2-2 08:32
结果不正确

写完没认真检查,的确有些问题，.cell(i,1).select改成.cell(i,2).select试试

batmanbbs

小花鹿 发表于 2024-2-2 08:32
结果不正确

gwjkkkk 老师的代码其实思路很清晰，就有一点小问题。根据老师的代码，我修改了一下，仅供参考

gwjkkkkk

batmanbbs 发表于 2024-2-2 10:25
gwjkkkk 老师的代码其实思路很清晰，就有一点小问题。根据老师的代码，我修改了一下，仅供参考

对于word中表格不像excel表格，对于合并单元格，需要考虑一个占位情况，否则会导致集合不存在。

liuxi001

最近两天搞word表格发现确实太伤神，不像excel表格清清爽爽

gwjkkkkk

liuxi001 发表于 2024-2-3 15:00
最近两天搞word表格发现确实太伤神，不像excel表格清清爽爽

哈哈，word表格你要研究，的确是要花一些时间去消化。。。

小花鹿

没事的时候学习学习，储备一下相关知识。