Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How do I insert a row or rows between each row of text and copy the row above?
I have been using this macro to insert rows depending on how many I need.
When I need more rows interested I just change the number by numRows= I would like to know how I can copy the row above to the new inserted row. I would like to do this for large amounts of data. As of now I just do this manually and it can be very time consuming. Sub InsertRows() Application.ScreenUpdating = False Dim numRows As Integer Dim r As Long numRows = 1 For r = 265 To 1 Step -1 ActiveSheet.Rows(r + 1).Resize(numRows).EntireRow.Insert Next r Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy/Insert rows | Excel Discussion (Misc queries) | |||
Button to insert rows on mutiple worksheets and copy text and info | Excel Programming | |||
text box insert in Excel - text box lines print on second copy | Excel Discussion (Misc queries) | |||
Copy Rows and insert these rows before a page break | Excel Programming | |||
Copy insert rows | Excel Programming |