Excel 2010 Split Text From 1 Cell Macro

Question

Ok, quick question here that I am having issues finding a solid solution too.. Let's say I have two columns; A and B. In column "A" There would be cells containing names such as "Item name AZ673" and then in column "B" there would be an ID number such as "AZ673". If I wanted to quickly remove that ID Number from each of the Names in Column A, How would I do that? Keep in mind there is no Comma or symbol between the Name and ID, just a space.. But the Columns are right by each other, and the Cells are Side by Side Containing the same ID's in both.. A macro to do this would be wonderful, Thank you in advanced for any solutions!

Answer 1

a simple loop throught he cells will do the trick

Set cl = [A1]
Do While cl <> ""
    cl = Trim(Replace(cl, cl.Offset(0, 1), ""))
    Set cl = cl.Offset(1, 0)
Loop

Note: if you have many rows (read 10's or 100's of thousands) to process iterating cells like this can be slow. there are many ways to speed it up if you need them

Answer 2

Create another column and use this formula:

=LEFT(A1,FIND(B1,A1)-1) & RIGHT(A1,LEN(A1)-FIND(B1,A1)-LEN(B1)+1)