Excel-VBA在每组名称下面插入五个空行

Question

我正在努力做到以上但却失败了。参考下面的图片，我需要在第4行（约翰李）下方插入5个空行，在第7行（bryan键）下面再插入5个空行，在第9行（盒子纸盒）下面再插入5个，依此类推，我得到30 +要做不同名称的小组。想知道如何为此写vba？感谢。

Answer 1

排序列A更改后有5个空白？

Const blanks = 5
Dim lastValue As String, i As Long, r As Long
Do
    r = r + 1
    If r > 1 And lastValue <> Cells(r, 1).Value Then
        If Cells(r, 1).Value = "" Then Exit Do
        For i = 1 To blanks
            Rows(r).Insert Shift:=xlDown
        Next
        r = r + blanks
    End If
    lastValue = Cells(r, 1).Value
Loop

1中的Cells()是列索引，即1 == A