Macro for duplicating rows based on cell value?
Hi,
Hope this does what you want:
Sub Macro1()
Range("A3").Select
Do Until Row = 65536
ActiveCell.Rows("1:17").EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.End(xlDown).Select
If ActiveCell.Row = 65536 Then Exit Do
ActiveCell.Offset(1, 0).Select
Loop
End Sub
David
"Matt.Russett" wrote:
Hello,
Below is a sample of a 200 row file I am working with.
LaneID O Zip D Zip Volume
1 44805 24210 18
2 44805 44309 12
What I need to do is duplicate the rows based on the volume for that
lane, so I can load it into an analysis tool we use.
The manual process I am currently using is to insert 17 rows after
Lane ID 1 and fill down the information so I have a total of 18 rows
for that lane. Doing that for over 200 rows is quite tedious! Does
anyone have any suggestions as to how I could set up a macro or
something so it would automatically look at the Volume column, insert
that many rows, and fill the data down?
Any suggestions are greatly appreciated!
Thanks.
|