Assuming that your data are in single column and there are empty columns right to the data column. If so you could run this code for selected range containing data:
Sub Solution()
Dim tmpArr
Dim Cell As Range
For Each Cell In Selection.Cells
tmpArr = Split(Split(Cell, "/")(0), ",")
Cell.Resize(1, 1 + UBound(tmpArr)) = tmpArr
Next
End Sub
The following picture presenting results of the macro.