Related:
- Macro to insert rows between data
- Excel macro to insert rows between data - Best answers
- Macro for inserting multiple rows between data - Forum - Excel
- Insert rows on change of value in Excel table ✓ - Forum - Excel
- Insert Multi Rows Between Existing Data ✓ - Forum - Excel
- Excel macro to insert rows between data ✓ - Forum - Excel
- Excel Macro to insert row based on data ✓ - Forum - Excel
5 replies
venkat1926
- Posts
- 1862
- Registration date
- Sunday June 14, 2009
- Status
- Contributor
- Last seen
- July 30, 2015
try this macro
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
Report
Dimple
This is giving a warning " Cant execute code in break mode"
Report
Pedro
Excellent! thank you very much!
informme808
- Posts
- 4
- Registration date
- Friday July 27, 2012
- Status
- Member
- Last seen
- July 29, 2012
OMG!!!!!!!!!!!!!!!!!!!!!!!!!........................THANK YOU!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
It Works perfectly. You're the best!
Sending You Much Aloha!
It Works perfectly. You're the best!
Sending You Much Aloha!
venkat1926
- Posts
- 1862
- Registration date
- Sunday June 14, 2009
- Status
- Contributor
- Last seen
- July 30, 2015
modification and more general macro
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
Subscribe To Our Newsletter!
