Andres N.,

Попробуй использовать такую функцию:

Function БЕЗБУКВ (ячейкаAs Range) As Long
Dim i As Integer, Результат As String, Символ As String

For i = 1 To Len(ячейка)
Символ = Mid(ячейка, i, 1)
If IsNumeric(Символ) Then
Результат = Результат & Символ
End If
Next i
БЕЗБУКВ = Val(Результат)
End Function

На листе будет: =БЕЗБУКВ(ячейка)

FА простая функция Val() вам не подходит?

Подходит, если ищем число в 1234D. А если 123D45C?

Andres N.,

Ну а если скопировать код функции в стандартный модуль, а на листе написать формулу
=БЕЗБУКВ(A3)
Не получается?

Andres N.,

Вот посмотри пример в файле. Если цифры и буквы вразброс, то БЕЗБУКВ1, если буквы только в конце, то БЕЗБУКВ2