Excel-VBA Вставьте пять пустых строк под каждой группой имени

Question

Я пытаюсь сделать все выше, но не могу. ссылаясь на изображение ниже, мне нужно вставить пять пустых строк ниже 4-й строки (Джон Ли) и еще пять пустых строк ниже 7-й строки (ключ Брайана) и еще пять ниже 9-й строки (коробка Кейси) и так далее, я получил 30 + группы с другим именем, чтобы сделать. Хотите знать, как написать VBA для этого? спасибо.

Answer 1

То есть 5 пробелов после изменения в отсортированном столбце A?

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