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