Sub Spliter()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange.Offset(1)
.Columns(2) = "=LEFT(TRIM(A2),FIND("" /"",TRIM(A2)&"" /"")-1)"
.Columns(3) = "=IF(TRIM(A2)=B2,B2,MID(TRIM(A2),LEN(B2)+4,FIND("" /"",TRIM(A2)&"" /"",LEN(B2)+4)-LEN(B2)-4))"
.Columns(4) = "=IF(OR(TRIM(A2)=B2,TRIM(A2)=B2&"" / ""&C2),C2,MID(TRIM(A2),LEN(B2)+LEN(C2)+7,9^9))"
.Columns(2).Resize(, 3) = .Columns(2).Resize(, 3).Value
End With
End Sub