vba - 如何在保护第一行的同时删除表中的每一行？

Question

以下代码应删除除第一行之外的每一行。但是，它会每隔一行删除一次。

Dim index As Long
For index = 2 To ActiveDocument.Tables(1).Rows.Count            
    ActiveDocument.Tables(1).Rows(index).Delete
Exit For
Next

Answer 1

解决方案是使用Step -1.

Dim index As Long
For index = ActiveDocument.Tables(1).Rows.Count To 2 Step -1
    ActiveDocument.Tables(1).Rows(index).Delete
Next

Answer 2

只删除最后一行很简单：

With ActiveDocument.Tables(1)
  .Rows(.Rows.Count).Delete
End With