Нужен макрос Excel по поиску и замене

[Михалыч01]

Помогите составить макрос!
Нужно в выделенном диапозоне найти несколько ненужных значений и заменить их на пустое значение, т.е. убрать (фактически стандартный поиск и замена, только множественный).

Для чего: в столбце есть куча ячеек со значениями: 7 сот, 47 соток, 15сот., 6сотк., 22.7 сотки и тп - нужно оставить только числа (и если возможно их округлить или убрать значение после ./,)
Заранее спасибо!)

[EducatedFool]

Щелкните правой кнопкой на ярлычке листа, и выберите пункт Исходный текст
В открывшемся редакторе VBA введите следующий код:

Sub ClearText()
    Dim ce As Range
    For Each ce In Selection.Cells
        cv = Val(ce.Value): ce.Value = IIf(cv = 0, "", Fix(cv))
    Next
End Sub

После этого выделяете диапазон ячеек для обработки, и запускаете макрос ClearText

[IgorGO]

Вот эта формула:

=ОКРУГЛ(МАКС(ЕСЛИ(ЕОШ(ЗНАЧЕН(ПСТР(RC[1];1;СТОЛБЕЦ(ДВССЫЛ("R1C1:R1C10";)))));;ЗНАЧЕН(ПСТР(RC[1];1;СТОЛБЕЦ(ДВССЫЛ("R1C1:R1C10";))))));)

может преобразовать значение в ячейке до числа, с которого эта ячейка начинается с округление до целого.
т.е.
7 сот -> 7
47.3 соток -> 47
15сот. -> 15
22.7 сотки -> 23 (за счет округления)

формулу необходимо вводить, как формулу массива. Вместо RC[1] два раза указать ссылку на ячейку, которую необходимо преобразовать. Если в исходной ячейке много символов необходимо R1C10 заменить на R1C100, например, (снова два раза). Теперь в числе может содержаться до 100 цифр (до этого было 10)