adding rows to excel table

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have created an inventory table with about 500 rows (one per item). Now, I
need to add five blank rows after each already entered row. These 5 new rows
contain a formula that is constant throughout the whole thing. Is there a
way to do this without manually adding them one by one? can't i just create
one set of the new rows including the formula and tell the program to insert
it after each existing row?
 
haystack

here is a macro that will insert 5 blank lines after every row

something similar can be done to insert formulas as required or to copy
a range and paste it into the blank rows
 
haystack

Looks like I had a hiccup with my previous post as the code did no
show up

here is a macro that will insert 5 blank lines after every row

something similar can be done to insert formulas as required or to cop
a range and paste it into the blank rows


Sub InsertRows()
Dim lRow As Long
For lRow = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(lRow & ":" & lRow + 4).Insert Shift:=xlDown
Next lRow
End Su
 
haystack

Looks like I had a hiccup with my previous post as the code did no
show up

here is a macro that will insert 5 blank lines after every row

something similar can be done to insert formulas as required or to cop
a range and paste it into the blank rows


Sub InsertRows()
Dim lRow As Long
For lRow = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(lRow & ":" & lRow + 4).Insert Shift:=xlDown
Next lRow
End Su
 
haystack

Looks like I had a hiccup with my previous post as the code did not
show up

here is a macro that will insert 5 blank lines after every row

something similar can be done to insert formulas as required or to copy
a range and paste it into the blank rows


Sub InsertRows()
Dim lRow As Long
For lRow = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(lRow & ":" & lRow + 4).Insert Shift:=xlDown
Next lRow
End Sub
 
Back
Top