Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Вывод только согласных из ячейки.
 
Доброго времени.
Подскажите есть ли какая-нибудь формула для вывода только согласных букв из ячейки?
Спасибо за Ваши ответы.

Бессмысленно осмысливать смысл неосмысленными мыслями.
 
UDF
 
Александр Моторин, что с буквами "ь", "ъ", цифрами, другими знаками?
Код
Function ТолькоСогл$(s$)
Static re As Object
  If re Is Nothing Then
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "[^бвгджзйклмнпрстфхцчшщ]+"
    re.Global = True
    re.ignorecase = True
  End If
  ТолькоСогл = re.Replace(s, vbNullString)
End Function
Изменено: Казанский - 16 фев 2019 14:07:54
Страницы: 1
Читают тему (гостей: 1)
Наверх