向现有宏添加2行

Question

下面是我在底部使用的now..edit details的宏。

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

上面的宏是我在一个Stackoverflow问题中找到的(谷歌搜索)，这是有人问过的问题，它对我的目的很有效。然而，我找不到它，无法给出它来自哪个问题的信息。

我现在正在使用它，并且工作得很好。然而，我需要添加更多的行。因此，我必须在需要时手动插入行。我想让宏为我做这件事。而不是在每个分组的单元格之后添加一行。我需要添加2行。谁能帮我编辑上面的宏，让它给我2行，而不是1行。

此外，我需要根据E列而不是A列中的数据来分隔行，我已经搜索了几个小时，并修改了代码，但我就是不能让它工作，我对此相当陌生，还在学习。

这是我的第一篇文章，提前感谢大家。

Answer 1

我不太确定你到底想通过这个宏来实现什么，但下面是我将如何做到的：

Sub AddBlankRows()

    Dim iRow As Integer
    Dim iCol As Integer

    iRow = 1 ' Row 1
    iCol = 5 ' Column E

    Do

        If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
            Range(Cells(iRow + 1, iCol), Cells(iRow + 2, iCol)).EntireRow.Insert shift:=xlDown
            iRow = iRow + 3
        Else
            iRow = iRow + 1
        End If

    Loop While Not Cells(iRow, iCol + 1).Text = ""

End Sub