VBA删除表格最后一行

Sub 删除最后一行()

If MsgBox("要为所有表格添加列吗？", vbYesNo + vbQuestion) = vbYes Then

For i =  To ActiveDocument.Tables.Count

ActiveDocument.Tables(i).Rows.Last.Delete

Next

MsgBox ("完成")

Else

MsgBox ("任务取消")

End If

End Sub