在每个小计后添加行 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

在每个小计后添加行 excel vba

add row after each subtotal excel vba

excel

vba

subtotal