How to remove all non-alphanumeric characters from cells?

[henway]

I have 20,000 lines of parts with all sorts of characters like ()@.#%& in them. I need a column next to it showing each cell's "short" equivalent which has all of these stripped.
Thus "03(1.0)7FLZ-SM1-TB" needs to be 03107FLZSM1TB

any ideas other than making multiple columns, each with:
=SUBSTITUTE(A1,"-","")
=SUBSTITUTE(A1,"(","")
=SUBSTITUTE(A1,"-")"")
.
.
.

and then use the final? Is there a way to put them all into one formula?

Thanks!

 

[VoG]

You could use ASAP http://www.asap-utilities.com/

On the ASAP menu, Text > Advanced Character Removal / Replace

 

[henway]

Wow! That works great.

Now I get to figure out all the additional functionality a add-in program has!

 

[gothic chicken]

A few years later, admittedly, but for those with the same problem try the nested SUBSTITUTE formula:
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B2,"/",""),",",""),"(",""),")",""),"-",""),".",""),":","")," ","")

To clarify it, we can use Alt+Enter to put each bit on a new line in the same cell. In this case we have 8 x SUBSTITUTE( and 8 non-alphanumeric characters. To add more, we add a {SUBSTITUTE(} at the top and a {,"[your character]","")} at the bottom:
=

SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
A1
,"/","")
,",","")
,"(","")
,")","")
,"-","")
,".","")
,":","")
," ","")