Macro that copies a row n number of times that is specified in a certain cell

[Faintkitara]

dates -- duration -- volts
11/22/13 -- 22 -- 55.4
5/6/15 -- 8 -- 22.3
12/23/14 -- 13 -- 13

I want to figure out how to duplicate each row of data the number of times that it listed under duration. So, I would want the row of 11/22/13 to be copied 22 times and the row of 5/6/15 to be copied 8 times... But i would need this for hundreds of lines of data.

Is this possible with a formula or macro? Any help or assistance would be greatly appreciated!

[:) Sixthsense :)]

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

Assumes your Columns are A B and C.

[Faintkitara]

Unfortunately, the data is confidential, which is why I can't upload a sample. I just thought there was a way that I could do it on my own

[Faintkitara]

OMG! This worked! I can't believe it thank you!! I am looking at the rows now and there is one extra row for each entry now. Is there anyway to tweak this? So for example row 11/22/13 has 23 instead of 22 copies. Here is your macro again:

Sub Faintkitara()
Dim i As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1
Rows(i).Copy
Rows(i).Resize(Range("D" & i).Value).Insert
Next i
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback. Please use code tags when posting to the Forum. Try:

Please Login or Register  to view this content.

[Faintkitara]

Ok, will do. And lastly if I wanted to change row B to the name "Actual Duration" would I just input that instead of B?

[JOHN H. DAVIS]

I'm afraid I don't understand your question. The "B" in the code represents the Column you identified as "Duration". If you wanted for example to use Column "M" then you would change the "B" to "M"? Hope that answers your question.