Excel VBA在每组名称下面插入五个空行 我正试着做以上的事情，但失败了。参考下图，我需要在第四行（john lee）下方插入五个空行，在第七行（bryan key）下方插入五个空行，在第九行（casey carton）下方插入五个空行，以此类推，我得到了30多个不同名称的组。想知道如何为此编写vba吗？谢谢

排序列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

Const blanks=5
Dim lastValue为字符串，i为长，r为长
做
r=r+1
如果r>1且lastValue单元格（r，1）.Value则
如果单元格（r，1）.Value=”“，则退出Do
对于i=1到空白
行（r）。插入移位：=xlDown
下一个
r=r+空白
如果结束
lastValue=单元格（r，1）。值
环

---

Cells（）

中的

1

是列索引，即

1==A

我喜欢这将直接运行到工作表底部并崩溃的方式：-）哦，你不受限制的

Do循环

@Kwai Lum，考虑添加<代码>如果r> LaStudiWiToToTo检查，然后退出< <代码> > <代码>循环> /Calp>语句。我不费心检查完全空的列——这是唯一导致它逃跑的场景-否则它将打破第一个空单元（第6行）的循环，哇，是的，对不起！我在脑子里的一个空白栏上运行它。@Kwai-Lum:你真应该感谢Alex K。。。接受他的回答。