Vpodstate by cely skript vypadal zhruba takto "slozite" kde bys musel jen patricne upravit parametry TextToColumns (nejsnadnejsi by bylo nahrat to jako makro a vytahnout to z nej), popripade upravit oblast pro kterou by se to spoustelo.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target.Value) Then Exit Sub
Target.TextToColumns Destination:=Target, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="/"
End Sub