Inserting Records Based on Cell Value

[gcot]

Hi All,

Anybody know of a quick way to duplicate records based on a cell value.

I have a list of people for which I've determined are eligible for x amount of ballots each for a prize draw. What I need is a way to duplicate every name based on the number of ballots. For example.

Source data:

Participant Ballots
John 6
Paul 4
Ralph 3

The results should be:

John
John
John
John
John
John
Paul
Paul
Paul
Paul
Ralph
Ralph
Ralph

Any help would be appreciated.

Thanks,

Gilles

 

[Norie]

If you are looking for code something like this perhaps?

Sub InsertCopy()
Dim rng As Range
Dim NoRows
    Set rng = Range("A1")
    
    While rng.Value <> ""
        NoRows = rng.Offset(, 1) - 1
        rng.Offset(1).Resize(NoRows).EntireRow.Insert
        rng.Offset(1).Resize(NoRows) = rng.Value
        Set rng = rng.Offset(NoRows + 1)
    Wend
End Sub

 

[gcot]

I think that will work.

Thanks Norie. Tried it and it seemed to have worked. I just need to do some validation but looks good at first glance. That was a great help!!

Thanks very much.

Gilles