Страницы: 1
RSS
Вытащить текст после заглавной буквы
 
Добрый вечер!
Помогите пожалуйста составить формулу или макрос, вытаскивающую текст из ячейки с первой встреченной слева-направо заглавной буквы до конца строки

Пример 1:
лазерные или струйные Многофункциональные устройства, мониторы с цифровым блоком управления
Результат 1:
Многофункциональные устройства, мониторы с цифровым блоком управления
Пример 2:
лазерные или струйные многофункциональные УСТРОЙСТВА, мониторы с цифровым блоком управления
Результат 2:
УСТРОЙСТВА, мониторы с цифровым блоком управления
 
UDF
Код
Function iText(cell$) As String
 With CreateObject("VBScript.RegExp")
     .Pattern = "[А-ЯЁ].+"
     iText = .Execute(cell)(0)
 End With
End Function
 
я бы еще английский добавил :)
Код
"[A-ZА-ЯЁ].+"
Спасибо
 
=REPLACE(A1;1;AGGREGATE(15;6;ROW($1:$99)/LOOKUP(CODE(MID(A1;ROW($1:$99);1));{0\65\91\168\169\192\224};{0\1\0\1\0\1\0});1)-1;)
или
=REPLACE(A1;1;AGGREGATE(15;6;ROW($1:$99)/ISEVEN(MATCH(CODE(MID(A1;ROW($1:$99);1));{0\65\91\168\169\192\224}));1)-1;)

99 в ROW($1:$99) - по осмтрению за менить на большее или меньшее
Изменено: БМВ - 25.12.2020 20:25:17
По вопросам из тем форума, личку не читаю.
 
Спасибо за помощь!  
Страницы: 1
Наверх