This worked in xl2K -

Dim lrw As Long, x As Integer, cel As Range, rw As Long

lrw = Cells(Rows.Count, "A").End(xlUp).Row

For Each cel In Range("A1:A" & lrw)
If cel.Offset(0, 1) 0 Then
rw = WorksheetFunction.CountA(Columns(3)) + 1
For x = rw To rw + cel.Offset(0, 1) - 1
Cells(x, 3) = cel
Next
End If
Next


--
steveB

Remove "AYN" from email to respond
"tryer" wrote in
message ...

I have a column of numbers say 1 to 10 in column A
In column B at various rows there could be a number. This is the number
of times I need the number in column A repeated in column C eg.
A B C
1 3
2 3
3 3 3
4 2 4
5 2 4
6 1 5
7 5
8 6
9 10
10 1
I have been trying to write a macro for this. I have got as far as
going down column A and identifying how many rows are populated and
then got stuck.
Help would be appreciated


--
tryer
------------------------------------------------------------------------
tryer's Profile:
http://www.excelforum.com/member.php...o&userid=16546
View this thread: http://www.excelforum.com/showthread...hreadid=397591