続き
コードはこれなのですが
どうかよろしくお願いします

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