Доброго время господа мужчины, с наступающим вас Рейхстагом :-)
Подскажите... Дано: ячейка с ФИО людей из 2 или 3 слов, нужно чтобы в соседней было только второе слово (имя) Иванов Иван Иванович - надо Иван Петров Иван - надо Иван
Function vvv$(t$)
With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
.Pattern = "(?:[^а-яё\w]|^)[а-яё\w]+(?=[^а-яё\w]|$)"
vvv = Trim(.Execute(t)(1))
End With
End Function
Ну и формула: =ЕСЛИ(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))=2;ЛЕВБ(ПСТР(A1;НАЙТИ(" ";A1)+1;9999);НАЙТИ(" ";ПСТР(A1;НАЙТИ(" ";A1)+1;9999))-1);ПСТР(A1;НАЙТИ(" ";A1)+1;9999)) И вариант чуть короче: =ЕСЛИОШИБКА(ЛЕВБ(ПСТР(A1;НАЙТИ(" ";A1)+1;9999);НАЙТИ(" ";ПСТР(A1;НАЙТИ(" ";A1)+1;9999))-1);ПСТР(A1;НАЙТИ(" ";A1)+1;9999))
vikttur написал: Если цитата не обязательна, не мучайте эту кнопку!
1. Я сама решу, что мне цитировать и как часто. 2. Вы сами себе намерили право редактировать и удалять сообщения по своим личным предпочтениям - не мучайте вашу кнопку, господин начальник шлагбаума.
Если я замечу со стороны вас персональное давление, а это есть (личку вы не удалите), я в лучшем случае перестану писать и создам другой аккаунт, от чего проиграют все, либо в худшем случае пожалуюсь Николаю Владимировичу и тогда по одному месту надают Вам.
Да, если это будут цитаты, а не бездумные копии сообщений.
Цитата
создам другой аккаунт
Запрещено создавать дубли учеток. Рискуете схлопотать отлучение от форума.
Цитата
со стороны вас персональное давление... (личку вы не удалите)
В личке - Ваше отношение к языку.
Пришли - будьте добры соблюдать местные правила, на которые Вам постоянно указывает "начальник шлагбаума" (и вместо того, чтобы оказывать помощь, тратит время на правку Ваших сообщений) Еще один выпад с Вашей стороны - получите бан на пару дней.