Split single row in multiple rows (sequential number 1/5..5/5)

[marreco]

Hi

Sub CriarVolume()
LastRow = Cells(Rows.Count, 9).End(xlUp).Row

For i = LastRow To 2 Step -1
    If Cells(i, 9).Value > 1 Then
        Num = Cells(i, 9).Value
        For j = 1 To Num
            Rows(i + 1).EntireRow.Insert
            Rows(i).Copy Rows(i + 1)
        Next
        Rows(i).EntireRow.Delete
    End If
Next
End Sub

my loop check value in column I and replicate rows, but i need create a sequential number.
Look my image to understand.

Thank you!

 

[p45cal]

try:

Sub CriarVolume2()
LastRow = Cells(Rows.Count, 9).End(xlUp).Row

For i = LastRow To 2 Step -1
  If Cells(i, 9).Value > 1 Then
    num = Cells(i, 9).Value
    Rows(i).Copy
    Rows(i + 1).Resize(num - 1).Insert
    k = 1
    For j = i To i + num - 1
      With Cells(j, "I")
        .NumberFormat = "@"
        .Value = k & "/" & num
      End With
      k = k + 1
    Next j
  End If
Next i
End Sub

but be aware that the values in column I which have a forward slash in them are no longer numbers, but text.

 

[marreco]

Hi p45cal, i very happy for help me, thank you!!!