List numbers by their quantity

[timetabler]

I am using 'small' / 'large' to give a rank order of students, such that students are ranked according to their test score, which works well.

However, we can only award a limited number of grades to each class, therefore, once I have ranked ordered the class, (it does this dynamically), I need to allocate their grades. (my class in this example has 8 students and below are the grades that I can award).

I have a table with the available grades and quantities:

5 (Row)	F (Grade Value)	G (Quantity)
6	9	1
7	8	2
8	7	1
9	6	1
10	5	0
11	4	1
12	3	0
13	2	2
14	1	0
15	U	0

<tbody>
</tbody>

Please can I have suggestions as to how to (best / simply) list the grades in a column such that they are displayed as, there are two grade 8s and 2 grade 2s?

Grades
9
8
8
7
6
4
2
2

<tbody>
</tbody>

Kind Regards
James

 

[MickG]

If your data is in "F & " G" column, then Results from code in Column "H".

[COLOR="Navy"]Sub[/COLOR] MG08Jan28
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range("F2", Range("F" & Rows.Count).End(xlUp))
c = 1
Cells(c, "H") = "Grades"
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]If[/COLOR] Dn.Offset(, 1).Value > 0 [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]For[/COLOR] n = 1 To Dn.Offset(, 1)
            c = c + 1
            Cells(c, "H") = Dn
        [COLOR="Navy"]Next[/COLOR] n
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[timetabler]

Worked perfectly, many thanks. James.

 

[MickG]

You're welocme