I have about 600 rows that have a distinct combination of text and numbers

example:

P10062 - US-Executive Management
P10198 - MSN PUBLISHING PLATFORM
P10294 - MSN OPS - CS Hosting Charges
P10363 - MSNIA Service Engineering
P10434 - MSN MEDIA NETWORK MGMT
P10435 - GBI
P10963 - US-CCG Ops Management
P10964 - Tier 1 Redmond
P10965 - Service Ops Mgmt-Redmond
P10971 - Entertainment COGS
P10972 - MSN Portal COGS

I need to remove all text except for the number but, since all 600 lines are
different, a simple find and replace wont work.

I will also need to do the opposite and add the text to the number and as
above a simple find and replace wont work.

Is there a function in Exel that can do this or a simple macro?