Split lines

[chriscoogan]

Hi All,

Is anyone able to help me with an odd excel question.

I need to split rows into new rows with qty 1.
Eg
Columns Stock Code, QTY, BIN
Row AB 10 AA-AA-AA

I need them to come out as:
AB 1 AA-AA-AA
AB 1 AA-AA-AA
AB 1 AA-AA-AA
AB 1 AA-AA-AA
AB 1 AA-AA-AA
AB 1 AA-AA-AA
AB 1 AA-AA-AA
AB 1 AA-AA-AA
AB 1 AA-AA-AA
AB 1 AA-AA-AA

Any thoughts in this?

Thanks
Chris

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub chriscoogan()
   Dim i As Long, Rws As Long
   
   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      Rws = Cells(i, 2).Value
      If Rws > 1 Then
         Rows(i + 1).Resize(Rws - 1).Insert
         Rows(i).Resize(Rws).FillDown
         Cells(i, 2).Resize(Rws).Value = 1
      End If
   Next i
End Sub

 

[chriscoogan]

Wow that was quick!

Thank you so much you have saved me 5 days work.

It works perfectly.

Chris

 

[trunten]

never mind. solved.

 

[Fluff]

Wow that was quick!

Thank you so much you have saved me 5 days work.

It works perfectly.

Chris

You're welcome & thanks for the feedback