主题：[求助]这段代码为何只能删除一半的行数

可以在这里找到原因：

http://www.foxtable.com/help/topics/0599.htm

建议你将代码改为：

For n A integer = Tables("人资_绩效写实").Rows.Count -1 To 0  Step -1

     Tables("人资_绩效写实").Rows(n).Delete()

Next