No macro needed......In B1 put this formula and copy down..........
=RIGHT(a1,7)
Vaya con Dios,
Chuck, CABGx3
> I need a macro to examine column A for alpha-numeric value, leave the
> data in column A as is, and copy the numeric data into column B.
[quoted text clipped - 7 lines]
>
> --Joe
In C1 add
=MID(A1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),99)
In B1,
=SUBSTITUTE(A1,C1,"")
--
HTH
Bob Phillips
(replace xxxx in the email address with gmail if mailing direct)
> I need a macro to examine column A for alpha-numeric value, leave the
> data in column A as is, and copy the numeric data into column B.
[quoted text clipped - 13 lines]
> jreinert's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=35448
> View this thread: http://www.excelforum.com/showthread.php?threadid=552248