在每个小计excel vba之后添加行

Question

我需要一个在每个小计后插入一行的宏，请看下面的图片以获得所需的结果。

Answer 1

For i = 1000 to 1 Step -1 ' adjust 1000 to the row number of the last element
    If Cells(i,1).Font.Bold And Cells(i,1) <> "" then
        Cells(i+1,1).EntireRow.Insert
    End If
Next