Функция "Удалить все после второго (третьего, четвертого...) определенного слова .

Пользователь

Сообщений: 10 Регистрация: 28.02.2013

05.03.2013 08:48:34

Есть функция "Удалить все после определенного слова". Но такое слово может повторяться много раз в одной ячейке:

=ЛЕВСИМВ(B3;НАЙТИ("звезда";B3;1))

Нужна функция, с помощью которой можно будет удалить все после последнего такого слова.

Буду благодарен, т.к. эта функция сэкономит десятки часов.

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#2 05.03.2013 09:05:41 Это слово где-то записано или его сразу в формулу вставлять? "..Сладку ягоду рвали вместе, горьку ягоду я одна."

cheeza Пользователь Сообщений: 10 Регистрация: 28.02.2013	#3 05.03.2013 09:07:11 По имеющейся функции оно вписано в формуле. Думаю, так удобно.

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#4 05.03.2013 09:09:11 При чём здесь функция? "..Сладку ягоду рвали вместе, горьку ягоду я одна."

cheeza Пользователь Сообщений: 10 Регистрация: 28.02.2013	#5 05.03.2013 09:10:31 Понятия не имею. Функция это или формула. Вот исходные данные: =ЛЕВСИМВ(B3;НАЙТИ("звезда";B3;1)) Формула так формула. Изменено: cheeza - 05.03.2013 18:34:18 (Не дописал саму формулу.)

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#6 05.03.2013 09:12:03 =ПСТР(A1;1;ПРОСМОТР(2;ПОИСК("звезда";ПСТР(A1;СТРОКА(1:99);ДЛСТР("звезда")));СТРОКА(1:99))+ДЛСТР("звезда")-1) "..Сладку ягоду рвали вместе, горьку ягоду я одна."

cheeza Пользователь Сообщений: 10 Регистрация: 28.02.2013	#7 05.03.2013 09:14:39 Спасибо, но все удалилось только после второго слова "звезда".

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#8 05.03.2013 09:16:01 Тогда свой пример выкладывать придётся. "..Сладку ягоду рвали вместе, горьку ягоду я одна."

RAN

Пользователь

Сообщений: 7207 Регистрация: 21.12.2012

05.03.2013 09:23:14

Код
Function Звезда$(text$) Звезда = Left$(text, InStrRev(text, "звезда") + 5) End Function

cheeza

Пользователь

Сообщений: 10 Регистрация: 28.02.2013

#10

05.03.2013 09:36:19

Цитата
Владимир пишет: = Left$(text, InStrRev(text, "звезда") + 5)

Странно, в примере, который я написал сам, все четко отсеклось. А в моем файле - нет. Не понимаю, почему.

cheeza Пользователь Сообщений: 10 Регистрация: 28.02.2013	#11 05.03.2013 09:37:30 RAN, а куда вставлять эти данные? Попробовал в модуль для макроса - не вышло. Погуглил, но только на формулы, начинающиеся на знак равенства наткнулся. Поможете разобраться?

LVL

Пользователь

Сообщений: 904 Регистрация: 01.01.1970

#12

05.03.2013 10:04:22

Код

Public Function УДАЛИТЬТЕКСТ(astr As Range, Mask As Variant) As String

Dim myRegExp As New RegExp

myRegExp.MultiLine = False
myRegExp.Global = True
myRegExp.IgnoreCase = True

myRegExp.Pattern = "(.*)(" & Mask & ")(.*)"
УДАЛИТЬТЕКСТ = myRegExp.Replace(astr, "$1$2")
End Function

Вставляете в модуль персональной книги макросов, сохраняете потом используете как обычную функцию листа. Должна быть подключена библиотека регулярных выражений, в редакторе VBA Tools/referenses/Microsoft regular expressions 5.5

п.с. Первый аргумент функции - ссылка на ячейку с текстом, который нужно модифицировать, второй аргумент - слово (часть слова или буква) после последнего вхождения которой нужно удалить текст.

Изменено: LVL - 05.03.2013 10:06:19

cheeza Пользователь Сообщений: 10 Регистрация: 28.02.2013	#13 05.03.2013 10:18:54 Спасибо! Буду разбираться

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#14 05.03.2013 18:42:04 =ПСТР(A1;1;ПОИСК("/";ПОДСТАВИТЬ(A1;"звезда";"/";3))+ДЛСТР("звезда")-1)