如何在excel中使用VBA每隔24行插入一行？

我是编程新手，需要帮助

我有一个excel表格，它将有8760行（一年中每小时一行），为了区分新的一天，我需要每24行插入一个空行。我知道我必须使用for循环，但不确定要使用什么VBA语法等等

这就是我到目前为止所拥有的，我只是不知道把“每24行条件”放在哪里：

---

提前感谢

只需在单元格范围内循环，并使用以检查是否应插入行。你可能还想读书

---

欢迎来到SO！阅读能帮助你更快地得到答案。记住，这不是一个代码编写服务，所以发布你所拥有的&我们可以帮助你修复它。如果您不知道从哪里开始，请尝试使用宏录制器。@弗里曼我怀疑宏录制器是否有助于此。它可能会向您展示如何插入整行，但其余部分需要一些编程知识。可能不会展示如何循环，但这是一个机会A）展示一些主动性，B）学习使用宏录制器，这是一个开始学习的好方法，即使它编写的代码质量不是最好的。非常感谢，它很管用。我真的很感谢你的帮助！我希望有一天我能更流利地编程。你不应该在反向循环中插入行吗；）这也是我的第一个想法@SiddharthRout，但后来我意识到，在单元格之间插入行不会改变对单元格的引用。=）我明白你的意思：）

For i = 1 to i = 8760
Worksheets("Sheet1").Cells(i, "A").Select
ActiveCell.EntireRow.Insert
Next

Public Sub InsertRowOnceEvery24Rows()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet 'adjust this to get the sheet you need

    Dim rng As Range
    Set rng = ws.Range("A1:A50") 'adjust this to whatever range of cells you need

    Dim i As Integer

    i = 1
    Dim cell As Range
    For Each cell In rng
        If i Mod 24 = 0 Then
            cell.EntireRow.Insert xlShiftDown
        End If

        i = i + 1
    Next

End Sub