Добавьте 3 строки в существующий код vba

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 

Приведенный выше код VBA Я нашел (прибегая к помощи) в одном из Stackoverflows вопросов, которые кто-то спросил, и она работала для моей цели. Однако я не могу найти его, чтобы дать информацию о том, с каким вопросом он возник.

Теперь я использую его и отлично работает. Однако мне нужно добавить больше строк. Поэтому мне приходится вручную вставлять строки по мере необходимости. Я хотел бы сделать код vba для этого. Вместо добавления 1 строки после каждой сгруппированной ячейки. Мне нужно добавить 3 строки. Может ли кто-нибудь помочь мне отредактировать макрос выше, чтобы он дал мне 3 строки, а не 1 строку.

Это мой первый пост и благодарность всем заблаговременно. GraceSarah

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