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

Question

我正在尝试删除工作簿中包含的每个工作表的前 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

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

VBA Delete Top 7 Rows in every Worksheet

excel

vba

rows