How to delete everything after special charcter in each column in Excel document and divide two words from one cell to two separate cells? -
i have excel document 1 column. looks this:
car /vij+ car, cars /vij- home, homes /vkjsah+ homeless, homeless /vkjsbh+ . . .
and need delete after symbol / including symbol / in each column. need divide cells 2 words in separate cells , delete symbol , between words. can me?
assuming data in single column , there empty columns right data column. if run code selected range containing data:
sub solution() dim tmparr dim cell range 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 macro.
Comments
Post a Comment