Dim i As Long Dim n As Long Dim LastRow As Long Dim SplCell As String Dim temp As Variant Dim AddRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastRow To 1 Step -1 SplCell = Cells(i, 1) temp = Split(SplCell, "/") AddRow = UBound(temp) If AddRow > 0 Then Range("A" & i + 1).Resize(AddRow).EntireRow.Insert End If
For n = 0 To AddRow Cells(i + n, 1) = temp(n) Cells(i + n, 2) = Cells(i, 2) Next n Next i End Sub
