| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copy and insert multipel rows after each row of data
Try the below macro..
Sub MyMacro() Dim lngRow As Long lngRow = 1 Do While Range("A" & lngRow) < "" Rows(lngRow).Offset(1).Resize(19).Insert Rows(lngRow).Copy Rows(lngRow + 1 & ":" & lngRow + 19) lngRow = lngRow + 20 Loop End Sub -- Jacob (MVP - Excel) "myork" wrote: I need to copy a row and insert it 19 times in the rows below it, for 100+ rows. |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Automatically insert rows/copy formula | Excel Worksheet Functions | |||
| Insert rows and copy forumla above it | Excel Discussion (Misc queries) | |||
| Copy/Insert rows | Excel Discussion (Misc queries) | |||
| How to insert rows that copy cell content of the row above | Excel Discussion (Misc queries) | |||
| Copy/Insert rows with formulas | Excel Worksheet Functions | |||
Threaded Mode
