wordvba删除表格

1.Word VBA教程：Delete方法

VBA教程 - Word VBA参考教程 - Delete方法

Word VBA教程：Delete方法

应用于 Cell 和 Cells对象的 Delete方法。

删除一个或多个表格单元格并可选择控制如何移动剩余的单元格。

expression.Delete(ShiftCells)

expression 必需。该表达式返回以上一个对象。

ShiftCells Variant 类型，可选。剩余单元格移动的方向。可以是任意WdDeleteCells 常量。如果忽略，最后删除的单元格的右侧单元格向左移动。

应用于 Range 和 Selection对象的 Delete方法。

删除指定数目的字符或单词。此方法返回一个 Long 值，该数值表明删除项的数目。如果删除失败，则返回的值为 0（零）。

expression.Delete(Unit, Count)

expression 必需。该表达式返回以上一个对象。

Unit Variant 类型，可选。所需删除的折叠区域或选定内容的单位。可以是下列 WdUnits 常量之一：wdCharacter（默认值）或 wdWord。

Count Variant 类型，可选。所需删除的单元的数目。若要删除某区域或选定内容之后的单元，请折叠该区域或选定内容并将此参数设置为正数；若要删除某区域或选定内容之前的单元，请折叠该区域或选定内容并将此参数设置为负数。

应用于 ShapeNodes对象的 Delete方法。

删除指定的对象。

expression.Delete(Index)

expression 必需。该表达式返回一个ShapeNodes对象。

Index Long 类型，必需。要删除的图形节点的数目。

应用于“应用于”列表中所有其他对象的 Delete方法。

删除指定的对象。

expression.Delete

expression 必需。该表达式返回“应用于”列表中的一个对象。

从后面往前删除就可以保持前面的位置。

Private Function MyFunction9()

Dim I As Long, J As Long

For I = 1 To Range("A65536").End(xlUp).Row '最大行数

For J = Range("A65536").End(xlUp).Row To I + 1 Step -1 '这里的最大行数看似和上面一样，但是其实它是不一样的，I 的是固定的，J 的是不固定。

If Range("A" & I).Value = Range("A" & J).Value Then Rows(J).Delete

End Function

Sub delete()

col = 5 ' 要匹配的列

For Each tb In ActiveDocument.Tables

For r = tb.Rows.Count To 1 Step -1

If InStr(tb.Cell(r, col)， "未选"） > 0 Then tb.Rows(r).delete

MsgBox "完成"

End Sub