=REPLACE(LEFT(A8,LOOKUP(10,MID(A8,ROW(INDIRECT("1:30")),1)+0,ROW(INDIRECT("1:30")))),1,MIN(FIND(0,SUBSTITUTE(A8&0,{1,2,3,4,5,6,7,8,9},0)))-1,"")+0
Paste that in the formula bar to accept. Then hit CTRL+SHIFT+ENTER to make it as an array.
Had to do a little research, so the exact formula is from:
http://www.excelforum.com/excel-worksheet-functions/630231-extract-number-from-alphanumeric-string.html
The CTRL+SHIFT+ENTER tip came from:
http://office.microsoft.com/en-us/excel/HA011549011033.aspx
The cell number that I am pointing to is A8...
Would like to take credit, but this is more about helping others getting their questions answered...