Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() 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. "A2 to A20" have the numbers 1 to 19 if "A3"has the number 2 and "B3" has the number 4 then "C2 to C5" should have number 2 in them. If the next number in column "B" was say "B8" and this was 1 then "C6" would be 7 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=397592 |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Try this. Is this is what you are looking for? Sorry if the code itself is not vey good. I'm also a beginner. Sub RepeatNumbers() Dim lngLastRow As Long Dim lngCount As Long Dim lngRow As Long Dim lngRepeat As Long Dim lngRowAtC As Long Dim lngValueAtA As Long lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row lngRowAtC = 2 For lngRow = 2 To lngLastRow lngValueAtA = Cells(lngRow, "A").Value lngCount = Cells(lngRow, "B").Value lngRepeat = 0 'lngRowAtC = lngRow - 1 If lngCount < 0 Then Do Until lngRepeat = lngCount Cells(lngRowAtC, "C").Value = lngValueAtA lngRepeat = lngRepeat + 1 lngRowAtC = lngRowAtC + 1 Loop End If Next End Sub -- hideki ------------------------------------------------------------------------ hideki's Profile: http://www.excelforum.com/member.php...o&userid=18903 View this thread: http://www.excelforum.com/showthread...hreadid=397592 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
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 | |||
How to create a macro that compares a list to another list | New Users to Excel |