Excel 我正在尝试找出如何使用宏从工作簿中删除某些行

我正在尝试获取一个宏，该宏将从工作簿第3行之后开始，每隔15行删除一次。有人能帮忙吗…

在删除之前，您需要保持

范围的灵活性。否则你应该后退。这将在循环中向前每隔15行删除一行

 Dim rng As Range
    For i = 3 To lastrow Step 15
      If rng Is Nothing Then Set rng = Cells(i, 1) _
      Else Set rng = Union(rng, Cells(i, 1))
    Next i
    rng.EntireRow.Delete

请尝试下面的代码

Sub tt()
    lastrow = 153
    For i = 3 To lastrow Step 15
        Rows(i + 15).EntireRow.Delete
    Next i
End Sub

对于i=3到最后一行步骤15和
行（i）。删除
了解如何执行某些操作的一个非常有用的工具是使用宏记录器，记录要执行的操作，然后调整生成的代码。