Copy and Insert Number of rows to adjacent cell.

[HockeyDiablo]

Having a bit of trouble wrapping my head around how this would even work.

Here is the data I will need to manipulate:

	A	B	C
1	ALASKA FLY FISHING	2
2	JONS LOG CABINS	3
3	LUKAS LODGE	5
4	SCOTTS SALVAGE YARD	4

<tbody>
</tbody>

I am looking to have the value of B:B determine how many rows will be in lets say column D. So my output for this inquiry would be as follows:

	D
1	ALASKA FLY FISHING
2	ALASKA FLY FISHING
3	JONS LOG CABINS
4	JONS LOG CABINS
5	JONS LOG CABINS
6	LUKAS LODGE
7	LUKAS LODGE
8	LUKAS LODGE
9	LUKAS LODGE
10	LUKAS LODGE
11	SCOTTS SALVAGE YARD
12	SCOTTS SALVAGE YARD
13	SCOTTS SALVAGE YARD
14	SCOTTS SALVAGE YARD

<tbody>
</tbody>

Appreciate you guys, thanks

J

 

[Eric W]

See if this thread helps:

https://www.mrexcel.com/forum/excel-questions/988413-new-list-repeated-entries.html

Post #2 has a formula that should work for you, Post #4 has a macro.

 

[Joe4]

Give this a try:

Sub MyCopy()

    Dim myRow As Long
    Dim lastRow As Long
    Dim counter As Long
    Dim totCount As Long
    Dim myText As String
    
    Application.ScreenUpdating = False
    
'   find last row in column A
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows in column A
    For myRow = 1 To lastRow
        myText = Cells(myRow, "A")
        counter = Cells(myRow, "B")
        Range(Cells(totCount + 1, "D"), Cells(totCount + counter, "D")) = myText
        totCount = totCount + counter
    Next myRow
        
    Application.ScreenUpdating = True
    
End Sub

 

[HockeyDiablo]

That's exactly it! How wonderful, thank you kindly

J

 

[Joe4]

You are welcome!