Сорри, уже натыкался и на вашу юзерформу. Все ок, но мне не нужно указания куда нужно выводить значения (нужно прямо в ячейках все менять в которых и были) + это нужно делать в строго заданном  столбце сразу, а не указывать диапазон каждый раз для 100тысяч строчек, я хочу просто код вставить в более здоровый макрос который еще много чего делает с исходным файлом.  
Нужно без юзерформы для ввода данных, просто - нажал на запуск макроса, значения в диапазоне от B2 до последней непустой ячейки в столбце поменялись (убрать все спец. символы, запятые, пробелы, тирэ и тп)

UPD:  
 
The_Prist, я как раз упростил вашу функцию для своей задачи:  
Function Extract_Number_from_Text(sWord As String, Optional Metod As Integer)  
 
   Dim sSymbol As String, sInsertWord As String  
   Dim i As Integer  
 
   If sWord = "" Then Extract_Number_from_Text = "": Exit Function  
   sInsertWord = ""  
   sSymbol = ""  
   For i = 1 To Len(sWord)  
       sSymbol = Mid(sWord, i, 1)  
           If Not sSymbol Like "*[0-9]*" Then
                   sSymbol = ""  
                   sInsertWord = sInsertWord & sSymbol  
               Else  
                   sInsertWord = sInsertWord & sSymbol  
           End If  
   Next i  
   Extract_Number_from_Text = sInsertWord  
End Function  
 
Вот мне нужно как-то прописать, чтобы для всех ячеек из нужного диапазона (с B2 до последней непустой в столбце)  
cell = Extract_Number_from_Text (cell)  
просто не пойму с синтаксисом...

м.б. как-то так  
 
Sub ert()  
Dim x, i&  
x = Range("B2", Cells(Rows.Count, 2).End(xlUp)).Value  
With CreateObject("vbscript.regexp")  
   .Global = True: .Pattern = "[^0-9]"
   For i = 1 To UBound(x)  
       x(i, 1) = .Replace(x(i, 1), "")  
   Next  
End With  
Range("B2", Cells(Rows.Count, 2).End(xlUp)).Value = x  
End Sub

Может, это подойдёт:  
Function ИЗВЛЕЧЬ_ЦЕЛЫЕ(ParamArray Диапазон())  
'---------------------------------------------------------------------------------------  
' Author       : Alex_ST, v__step, nerv  
' URL          : http://www.excelworld.ru/forum/3-1012-12791-16-1324630051  
' Topic        : Функция (UDF) "ИЗВЛЕЧЬЦЕЛЫЕ"  
' Purpose      : Создать массив из целых чисел, извлечённых из текста произвольно расположенных диапазонов ячеек  
' Notes        : К полученному массиву можно применять любые стандартные формулы листа  
'---------------------------------------------------------------------------------------  
  Dim rArea, rCell, sStr$, oMatches, i&, Arr()  
  On Error GoTo xlErrEXIT  
  For Each rArea In Диапазон  
     For Each rCell In IIf(rArea.Count = 1, Array(rArea.Value), rArea.Value)  
        sStr = sStr & " " & rCell  
     Next rCell  
  Next rArea  
  With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\d+": Set oMatches = .Execute(sStr): End With  
  If oMatches.Count = 0 Then ИЗВЛЕЧЬ_ЦЕЛЫЕ = CVErr(xlErrNA): Exit Function      ' вернуть ошибку #Н/Д если чисел нет  
  '   If oMatches Is Nothing Then ИЗВЛЕЧЬ_ЦЕЛЫЕ = CVErr(xlErrNA): Exit Function   ' вернуть ошибку #Н/Д если чисел нет  
  ReDim Arr(1 To oMatches.Count)  
  For i = 0 To oMatches.Count - 1: Arr(i + 1) = CLng(oMatches(i).Value): Next i  
  ИЗВЛЕЧЬ_ЦЕЛЫЕ = Arr  
xlErrEXIT:    If Err Then ИЗВЛЕЧЬ_ЦЕЛЫЕ = CVErr(xlErrValue)   ' вернуть ошибку #ЗНАЧ! если была ошибка  
End Function

Private Declare Function GetTickCount Lib "kernel32" () As Long  
 
конечно же )

1) заполнить диапазон тестовыми значениями - для чистоты эксперимента случайными  
2) обработать без помощи регулярок  
3) обработать с помощью регулярок  
 
и чего в нем лишнее? :)

так в том-то и фокус :)  
regexp в данном случае работает ровно столько же времени, что и встроенный вба-шный like (который, правда, тоже быстрым назвать нельзя:)  
 
вероятно, регулярка слишком простая.

>> Какой-то длинный код получился  
Богдан, Саша - предлагаю просмотреть тему:  
http://www.programmersforum.ru/showthread.php?p=1122950#post1122950  
Это как комментарий к вопросу длины и простоты кода. Блестящий пример от Алексея(Казанский). Его длинный и усложненный код, против моего короткого и простого. На десятке строк разницы не увидишь, а на серьезном объеме он меня в асфальт закатает:-) Так что иной раз простота хуже воровства...