如何在word中用vba删除有合并单元格的行

西门吹水

想用vba删除表格中的行，但是有合并单元格的行就会报错。“无法访问此集合中单独的行，因为表格有纵向合并的单元格”我该如何删除这样的行呢？

第二个问题，如何合并同一列中具有相同数据的单元格。

cncalyl

对付合并单元格的表格行，要使用Selection对象，不能只使用Cell对象，可用Cell对象定位到行，再：
    Selection.SelectRow
    Selection.Delete

西门吹水

ActiveDocument.Tables(1).Rows(3).Select
Selection.SelectRow
Selection.Delete
这样还是不行

sylun

以下内容为wordVBA帮助中的相关解释：

访问表格行或列时产生的错误
如果要访问绘制表格中单独的行或列，而该表格又不统一，则会产生一个运行时错误。例如，如果活动文档中第一张表格的每列中具有不同数量的行，则使用下列指令将导致出错。

Sub RemoveTableBorders()
    ActiveDocument.Tables(1).Rows(1).Borders.Enable = False
End Sub
要避免这种错误，可首先使用 SelectColumn 或 SelectRow 方法选定一列或一行中的单元格。选定单元格后，再使用 Selection 对象的 Cells 属性。下列示例选定第一张文档表格中的第一行。Cells 属性用于访问选定的单元格（第一行中的所有单元格）以删除边框。

Sub RemoveTableBorders()
    ActiveDocument.Tables(1).Cell(1, 1).Select
    With Selection
        .SelectRow
        .Cells.Borders.Enable = False
    End With
End Sub

西门吹水

Sub RemoveTableBorders()
    ActiveDocument.Tables(1).Cell(2, 1).Select
    With Selection
        .SelectRow
        .Cells.Delete
    End With
End Sub
谢谢，我已经解决了这个问题了。

ardenzheng

刚好用上谢谢

我的电子表1516

很有启发，收藏了，谢谢高手们