Repeat Values Into A Column

Re: Repeat Values Into A Column

Try this:

Sub x()
Dim r(3)
Dim i As Integer
Dim lastrow As Long


For i = 0 To 2
    r(i) = Cells(2, i + 1)
Next i


lastrow = 5
For i = 1 To 3
    Range("E" & lastrow & ":E" & lastrow + r(i - 1) - 1) = Cells(1, i).Value
    lastrow = Range("E65536").End(xlUp).Row + 1
Next i


End Sub

Re: Repeat Values Into A Column

Maybe something like the attached?

Mac

Re: Repeat Values Into A Column

Oops, didn't read the question properly. If you put "0" or "=A1" in E5 and this formula in E6 and dragged down it will work for your specific example. No doubt there is a more generalised way of doing it.

Quote

=IF(COUNTIF($E$5:E5,A$1)<A$2,A$1,IF(COUNTIF($E$5:E5,B$1)<B$2,B$1,C$1))

Re: Repeat Values Into A Column

Quote from StephenR

Oops, didn't read the question properly.

I misread as well. Oh well! No harm in offering several solutions.

My apologies,

Mac