spread repated cells

[amrane]

Dear forum,

I have blocking point, for which I not founding solution,

I have huge table in which I need to repeat some line with a given number, please refer to the attached xls file,

the opposite action is too simple, but what is the solution for my case

br,
amrane

[Aussiebear]

=Rept(text,number)

[mancubus]

if you need a vba solution, try;



Sub vbax_57711_copy_cells_values_n_times()

Dim i As Long

With Worksheets("Sheet1") 'change Sheet1 to suit
For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
.Range("E" & .Rows.Count).End(xlUp).Offset(1).Resize(.Range("B" & i)).Value = .Range("A" & i).Value
Next
End With

End Sub

[amrane]

Dear Mancubus,

this professional solution, that's great,
thank you a lot,

Amrane,

[Paul_Hossler]

Option Explicit
Sub Repeats()
Dim rControls As Range, rControl As Range
Dim iOut As Long, iNum As Long

Application.ScreenUpdating = False

'A2 to end of data, 2 columns
Set rControls = Range(ActiveSheet.Range("A2"), ActiveSheet.Range("A2").End(xlDown)).Resize(, 2)

iOut = 2
For Each rControl In rControls.Rows
For iNum = 1 To rControl.Cells(1, 2).Value
'starts in row 2 column 5
ActiveSheet.Cells(iOut, 5).Value = rControl.Cells(1, 1).Value
iOut = iOut + 1
Next iNum
Next
Application.ScreenUpdating = True
End Sub