Creating Multiple Rows based on numbers in another column

[Scottjs12]

Hi All,

I am trying to generate a random winner for a sweepstakes, basically I have the persons name and how many entries they submitted. So column A is the name, Column B is the amount of entries. I need to convert all those entries into unique multiple entry names so it gives a better chance to those who entered multiple times.... Is there any quick way to do this?

Thanks!
Scott

 

[MickG]

Try this:-
The code will resize the list in "A" with extra Names as per column "B" Values.

[COLOR="Navy"]Sub[/COLOR] MG06Sep13
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] num [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] temp [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Rw [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] n = Rng.Count To 1 [COLOR="Navy"]Step[/COLOR] -1
    [COLOR="Navy"]With[/COLOR] Range("A" & n)
        temp = .Value
        num = .Offset(, 1)
        .EntireRow.Resize(num - 1).Insert
            [COLOR="Navy"]For[/COLOR] Rw = 1 To num
                Cells(n + Rw - 1, 1) = temp & "/" & Rw
            [COLOR="Navy"]Next[/COLOR] Rw
    [COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick