如何批量保留一个工作簿下多张工作表的最后200行？

在一个工作簿下有很多张表格，现在只想保留每张工作表的最后固定几行，例如每张表格最后的200行数据，（因为工作表太多了，没办法一张张操作），如何可以批量快速操作呢?

其实这个没有其它办法，只能用代码，打开excel工作簿，按快捷键Alt+F11，调出VBA编辑器，将以下代码复制到代码窗口，并执行：

Sub DeleteRows()

For Each sh In ActiveWorkbook.Sheets

i = sh.Cells(1000000, 1).End(xlUp).Row

sh.Range("1:" & i - 200).Clear '清除内容及格式

sh.Range("1:" & i - 200).Delete '删除行

Next

End Sub

以上是清除内容和删除行根据自己的需要保留一行就可以了。