VBA删除每个工作表中的前7行

我想删除工作簿中包含的每个工作表中的前7行。 我有下面的代码，但是，我认为有一个循环的问题，我不能让代码正确执行; 我将不胜感激任何帮助！

Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ActiveWorkbook.Worksheet(I).Rows(8).EntireRow.Delete Next I End Sub 

Answer 1

做这一行：

 ActiveWorkbook.Worksheet(I).Rows(8).EntireRow.Delete 

对此：

 ActiveWorkbook.Worksheets(I).Range("1:7").EntireRow.Delete 

此外，要遍历所有的工作表，您可以改为：

 Sub WorksheetLoop() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Range("1:7").EntireRow.delete Next ws End Sub