Macro to insert multiple rows between existin [Solved/Closed]
informme8084
Posts Friday July 27, 2012Registration date
July 29, 2012
Last seen
-
Jul 27, 2012 at 08:51 PM - Latest reply: Pedro
- Jul 11, 2017 at 02:40 PM
Hello,
I am trying to create a macro that will insert 2 blank rows into an existing spreadsheet after every 2 entries. The amount of rows needed will be the same for each entry on the spreadsheet (about 800).
Before Macro:
Title1
Title2
Title3
Title4
After Macro:
Title1
Title2
Title3
Title4
Your quick response will be greatly appreciated, as I am preparing for an audit. Mahalo!
Sub test()
Dim j As Integer, k As Integer, m As Integer
j = Range("a1").End(xlDown).Row
k = 3
m = 2
Do
If k Mod 2 = 1 Then
Range(Cells(k, 1), Cells(k + 1, 2)).EntireRow.Insert
k = k + 2 * m
' MsgBox k
End If
If Cells(k, 1) = "" Then Exit Do
Loop
End Sub
Sub test()
Dim j As Integer, k As Integer, m As Integer, n As Integer
Worksheets("sheet1").Cells.Clear
Worksheets("sheet2").Cells.Copy Worksheets("sheet1").Range("A1")
j = Range("a1").End(xlDown).Row
m = 2 'no. of rows after which blank rows to be inserted
k = m + 1
n = 2 'no. of blank rows to be inserted
Do
If k Mod 2 = 1 Then
Range(Cells(k, 1), Cells(k + n - 1, 1)).EntireRow.Insert
k = k + 2 * m
'MsgBox k
End If
If Cells(k, 1) = "" Then Exit Do
Loop
End Sub
has helped 1894 users this month