Извлечение букв из буквенно-цифровой ячейки

[Sтас]

Здравствуйте! Столкнулся с проблемой извлечения букв из буквенно-цифровой ячейки (пример: 123абв). Нашел как извлечь числа из такого сочетания:
{=1*ПСТР(A1,ПОИСКПОЗ(ИСТИНА,ЕЧИСЛО( 1*ПСТР(A1,СТРОКА($1:$9),1)),0), СЧЁТ(1*ПСТР(A1,СТРОКА($1:$9),1)))}
Можно как то это адаптировать для извлечения букв?

[Казанский]

Если нет аллергии на VBA

Function NoNum(s$)
Static re As Object
If re Is Nothing Then
  Set re = CreateObject("vbscript.regexp")
  re.Global = True
  re.Pattern = "\d+"
End If
NoNum = re.Replace(s, "")
End Function

[Sтас]

Прикольно! Спасибо! А так же для чисел можно? А то через формулу громоздко получается.

[Казанский]

Function OnlyNum(s$)
Static re As Object
If re Is Nothing Then
  Set re = CreateObject("vbscript.regexp")
  re.Global = True
  re.Pattern = "\D+"
End If
OnlyNum = re.Replace(s, "")
End Function

Так функция вернет число в виде текста. Это полезно для выделения длинных последовательностей цифр - номеров счетов и т.п. Чтобы получить истинное число, предпоследняя строка

OnlyNum = CDbl(re.Replace(s, ""))

[Sтас]

Спасибо! Все работает. Очень удобно!