Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Получить согласные буквы
 
Есть:
tropic green
tapestry navy
pinot noir
...

Нужно получить:
trpcgrn
tpstrnv
pntnr
...

Желательно формулой
 
и вам здрасьте
Цитата
dixel написал:
формулой
Код
=ОБЪЕДИНИТЬ("";1;LET(x;ПСТР(B7;ПОСЛЕД(ДЛСТР(B7));1);ЕСЛИ(ЕОШ(ПОИСК(x;"aeiouy "));x;"")))

а в общем виде UDF
Код
Function consonant$(t$)
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "[aeiouy\s]+"
        consonant = .Replace(t, "")
    End With
End Function
Изменено: buchlotnik - 4 ноя 2020 14:04:59
Каждому For свой Next
 
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=114221
 
buchlotnik, пробую, что-то не работает. что я делаю не так.
можете загнать формулу в файл?
 
dixel,  чтобы не ждать - загнал
Изменено: Mershik - 4 ноя 2020 15:46:02
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, огромное Вам спасибо. который раз уже помагаете
 
Доброе время суток
Цитата
dixel написал:
можете загнать формулу в файл?
Пожалуйста.
 
dixel,  :D  тут я просто проходил мимо благодарите buchlotnik,
Не бойтесь совершенства. Вам его не достичь.
 
Если Excel Не свежий, то ОБЪЕДИНИТЬ в нем отсутсвует, но прелесть в том , что не так много этих "aeiouy"  6 вложенных Substitute справятся. ну а 7й с пробелом
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1;"a";);"e";);"I";);"o";);"u";);"y";);" ";)
По вопросам из тем форума, личку не читаю.
 
buchlotnik, Mershik, Андрей VG, БМВ, всем спасибо за помощь
Страницы: 1
Читают тему (гостей: 1)
Наверх