从特定工作表中删除最后10行 – Excel

我试图从Excel文件的特定工作表（Sheet1，Sheet2和Sheet3）中删除最后10行。 我已经尝试了下面的代码。

Sub Macro1() Dim Tables As Variant Dim rLastRow As Range Dim InxW As Long Tables = Array("sheet1", "sheet2", "sheet3") For InxW = LBound(Tables) To UBound(Tables) With Worksheets(Tables(InxW)) rLastRow = Cells(Rows.Count, "A").End(xlUp) rLastRow.Offset(-9).Resize(10).EntireRow.Delete End With Next InxW End Sub 

我得到的错误是在线：

 rLastRow.Offset(-9).Resize(10).EntireRow.Delete 

消息：

运行时错误“91”：
对象variables或未设置块variables

任何帮助表示赞赏。
提前致谢。

Answer 1

像这样的东西：

 With Worksheets(Tables(InxW)) .Cells(Rows.Count, "A").End(xlUp). _ Offset(-9).Resize(10).EntireRow.Delete End With 

但你也应该添加一个检查，至less有10行可以删除。