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

Question

我正在尝试执行上述操作，但失败。参考下面的图片，我需要在第四行（约翰李）下面插入五个空行，第七行下面的另外五个空行（布莱恩键）和第九行下面的另外五个（casey carton）等，我得到了30 +不同名称的团体做。想知道如何写这个vba？谢谢。

Answer 1

所以在排序列中的一个变化之后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 

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