Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to list numbers
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=397590 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to list numbers
On Sun, 21 Aug 2005 12:24:59 -0500, tryer
wrote: 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 One solution Sub Repeater() Dim a As Integer, b As Integer, x As Integer, y As Integer, count As Integer For x = 0 To Range("A1").CurrentRegion.Rows.count If Range("A1").Offset(x, 1) < "" Then b = Range("A1").Offset(x, 1) a = Range("A1").Offset(x, 0) For y = 1 To b Range("c1").Offset(count + y - 1, 0) = a Next count = count + b End If Next End Sub __ Richard Buttrey Grappenhall, Cheshire, UK __________________________ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I extract a list of numbers missing in a list? | New Users to Excel | |||
change a vertical list of numbers to horizontal list from 1 cell | Excel Discussion (Misc queries) | |||
how to extract unique numbers once from a list of repeated numbers? | Excel Discussion (Misc queries) | |||
Macro to list numbers | Excel Programming | |||
Macro to list numbers | Excel Programming |