Excel 向现有vba代码中添加3行

下面是我现在使用的vba代码。编辑底部的详细信息

Sub AddBlankRows()
'
Dim iRow As Integer
Range("a1").Select
'
iRow = 1
'
Do
'
If Cells(iRow + 1, 1) <> Cells(iRow, 1) Then
    Cells(iRow + 1, 1).EntireRow.Insert shift:=xlDown
    iRow = iRow + 2
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, 2).Text = ""
'
End Sub

Sub AddBlankRows（）
'
Dim iRow作为整数
范围（“a1”）。选择
'
iRow=1
'
做
'
如果单元格（iRow+1，1）单元格（iRow，1），则
单元格（iRow+1,1）.EntireRow.Insert shift:=xlDown
iRow=iRow+2
其他的
iRow=iRow+1
如果结束
'
非单元格时循环（iRow，2）。Text=“”
'
端接头

我在一个StackOverflow问题中找到了上面的vba代码（谷歌搜索），这是有人问的问题，它是为我的目的而工作的。然而，我找不到它，无法提供它产生于哪个问题的信息

我现在正在使用它，效果非常好。但是，我需要添加更多行。因此，我必须根据需要手动插入行。我想让vba代码为我做这件事。而不是在每个分组单元格后添加一行。我需要添加3行。有人可以帮我编辑上面的宏，让它给我3行而不是1行

这是我的第一篇帖子，提前感谢大家。

---

GraceSarah

这将是修改现有公式以添加两行的最小侵入性方法

Sub AddBlankRows()
'
Dim iRow As Integer
Dim x as Integer
Range("a1").Select
'
iRow = 1
'
Do
'
If Cells(iRow + 1, 1) <> Cells(iRow, 1) Then
    For x = 1 To 3
        Cells(iRow + 1, 1).EntireRow.Insert shift:=xlDown
    Next x
    iRow = iRow + 4
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, 2).Text = ""
'
End Sub

Sub AddBlankRows（）
'
Dim iRow作为整数
作为整数的Dim x
范围（“a1”）。选择
'
iRow=1
'
做
'
如果单元格（iRow+1，1）单元格（iRow，1），则
对于x=1到3
单元格（iRow+1,1）.EntireRow.Insert shift:=xlDown
下一个x
iRow=iRow+4
其他的
iRow=iRow+1
如果结束
'
非单元格时循环（iRow，2）。Text=“”
'
端接头

3分钟后，哇！非常感谢。我试着玩宏中的数字…但做不到。