Creating Duplicate Cells Based on Criteria

[jrowland]

Hello,

I need to create a macro that will duplicate cells a set number of times based on criteria in another cell. For example, I have:

A1             B1
John          3
Mike          1
Bill            5

And I would like to have:

A1
John
John
John
Mike
Bill
Bill
Bill
Bill
Bill

http://www.mrexcel.com/forum/showthread.php?t=431282

Is pretty close to what I'm looking for, but I couldn't adapt that code to work with my present list.

Thank you for your time.

 

[VoG]

Try

Sub Rpts()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Columns("A").Insert
For i = 1 To LR
    Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(Range("C" & i)).Value = Range("B" & i).Value
Next i
Columns("B").Delete
Range("A1").Delete
End Sub

 

[jrowland]

Worked perfectly. Thank you very much for your time.