Sub Macro1()
For Each cel In Range("A1:A" & [A65000].End(xlUp).Row)
If cel.Value Like "*/*" Then
cel.Characters(Start:=1, Length:=1).Font.Superscript = True
cel.Characters(Start:=3, Length:=1).Font.Subscript = True
End If
Next cel
End Sub