Spilt data into columns

Try this, where you have Apple, Orange and Grapes in F1:F3.

=SUBSTITUTE(INDEX($A1:$C1, MATCH("*"&F$1, $A1:$C1,0)),F$1,"")

Thanks so much! It works, by the way, I got error when the some of the cell has "10 fruits Apple", is there a way to do a partial match?
I also tried to use the entire range but it doesn't work?

You could try this.

=SUBSTITUTE(INDEX($A1:$C1, MATCH("*"&F$1&"*", $A1:$C1,0)),F$1,"")