Generate list from an existing list

[edwhite00130]

I have a list of the follwing in a 2-column by 4-row matrix:

US-10
AM-15
EU-23
AP-27

I am interested in the VBA code to generate a list of 75 records (10+15+23+27), 10 having the value 'US', 15 having the value 'AM', 23 having the value 'EU', and 27 having the value 'AP'. How do I do this?

 

[MickG]

Hi, Try this , It might be what you want !!!
Your data in Columns "A & B".

[COLOR="Navy"]Sub[/COLOR] MG18Feb37
[COLOR="Navy"]Dim[/COLOR] Rw [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]For[/COLOR] Rw = 1 To 4
    [COLOR="Navy"]For[/COLOR] n = 1 To Range("B" & Rw)
        c = c + 1
        Range("C" & c) = Range("A" & Rw)
        Range("D" & c) = Range("B" & Rw)
    [COLOR="Navy"]Next[/COLOR] n
 [COLOR="Navy"]Next[/COLOR] Rw
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[edwhite00130]

Thanks, Mick!

How would I change this macro to post the results to a separate sheet as opposed to column 3 of the current sheet?

Thanks Again,

Ed

 

[MickG]

Hi, Try this:-

[COLOR="Navy"]Sub[/COLOR] MG23Feb47
[COLOR="Navy"]Dim[/COLOR] Rw [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]For[/COLOR] Rw = 1 To 4
    [COLOR="Navy"]For[/COLOR] n = 1 To Range("B" & Rw)
        c = c + 1
        [COLOR="Navy"]With[/COLOR] Sheets("Sheet2")
            .Range("A" & c) = Range("A" & Rw)
            .Range("B" & c) = Range("B" & Rw)
        [COLOR="Navy"]End[/COLOR] With
    [COLOR="Navy"]Next[/COLOR] n
 [COLOR="Navy"]Next[/COLOR] Rw
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick