excel - 向现有的 vba 代码添加 3 行

Question

下面是我现在使用的 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

我在某人提出的 Stackoverflows 问题之一中找到（谷歌搜索）上述 vba 代码，它适用于我的目的。但是，我无法找到它以提供有关它来自哪个问题的信息。

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

这是我的第一篇文章，提前感谢大家。格蕾丝莎拉

Answer 1

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

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