Sub bb()
Dim i&, j&, s$()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
s = Split(Replace$(Cells(i, 2), " ", ""), "/")
j = UBound(s)
If j Then
Rows(i + 1).Resize(j).Insert
Cells(i, 1).Copy Cells(i + 1, 1).Resize(j)
Cells(i, 3).Resize(, 6).Copy Cells(i + 1, 3).Resize(j)
Cells(i, 2).Resize(j + 1).Value = Application.Transpose(s)
End If
Next
End Sub
Sub bb()
Dim i&, j&, s$()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
s = Split(Replace$(Cells(i, 24), " ", ""), ",")
j = UBound(s)
If j Then
Rows(i + 1).Resize(j).Insert
Cells(i, 1).Resize(, 23).Copy Cells(i + 1, 1).Resize(j)
Cells(i, 25).Resize(, 28).Copy Cells(i + 1, 25).Resize(j)
Cells(i, 24).Resize(j + 1).Value = Application.Transpose(s)
End If
Next
End Sub