Страницы: 1
RSS
Как удалить заданную часть текста из ячейки?
 
Вопрос крайне тривиальный.
Есть 2 столбца, в ячейках 1-го текст, в ячейках 2-го обязательно есть часть текста из 1-го. Нужно из текстов ячеек 1 столбца вычесть текст из ячеек 2 столбца.

Пример того, что должно получиться - во вложении.
 
krestsoft, для 2 строки, и автозаполнить по столбцу
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(A2;B2;""))
 
Функция ПОДСТАВИТЬ справится.
 
UDF. Я понял, что в ячейке может быть любое слово из второго столбца, а не только то, которое в ячейке справа
Код
Function СЛОВАМИНУС(iTxt, iTbl As Range)
arr = iTbl.Value
For I = 1 To UBound(arr)
    СЛОВАМИНУС = Trim(IIf(СЛОВАМИНУС <> Empty, Replace(СЛОВАМИНУС, arr(I, 1), ""), Replace(iTxt, arr(I, 1), "")))
Next
End Function
Изменено: Sanja - 10.04.2018 20:22:58
Согласие есть продукт при полном непротивлении сторон
 
вба

хотя надо даже new_function = Replace(Replace(Umensh, vichet, ""), "  ", " ")
чтобы убрать двойные пробелы
Изменено: VideoAlex - 10.04.2018 20:34:57
 
Спасибо! Очень оперативно получилось  8)
 
krestsoft, На другом форуме отпишитесь. Там ответ даже раньше был.
Изменено: АlехМ - 10.04.2018 20:56:15
Алексей М.
 
Ок, мощно ваше сообщение 666 по счёту стало )
 
Цитата
krestsoft написал:
Вопрос крайне тривиальный
И зачем тогда надо было по всему рунету его публиковать? :evil:
 
Привычка  :oops:  
 
krestsoft, размещаете тему на нескольких формах - информируйте об этом.
 
Цитата
krestsoft написал: Привычка
От плохих привычек нужно избавляться.
Цитата
Публикуя один и тот же вопрос в разных форумах и на дружественных сайтах вы заставляете сразу нескольких людей параллельно думать над вашей задачей и обесцениваете усилия тех, кто даст ответ вторым-третьим и т.д.
Страницы: 1
Наверх