向现有宏添加 2 行

Question

下面是我现在正在使用的宏..在底部编辑详细信息。

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 问题之一中找到（谷歌搜索）上述宏，它对我的​​目的有效。但是我无法找到它以提供有关它来自哪个问题的信息。

我现在正在使用它并且效果很好。但是我需要添加更多行。所以我必须根据需要手动插入行。我想让宏为我做这件事。而不是在每个分组的单元格之后添加 1 行。我需要添加 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