Здравствуйте. Есть столбец с предложениями, нужно проставить "+" перед всеми предлогами. В предложении может быть как 1, так и несколько предлогов, также если в предложении нет предлогов вовсе- необходимо возвращать исходное предложение. Спасибо.
К сожалению файл с вложением прикрепить не получается, выдает ошибку, подобная тема обсуждалась тут- http://www.excelworld.ru/forum/2-19140-1#235369 и в ней есть пример, но там не все необходимые условия соблюдены.
Здравствуйте. Есть столбец с предложениями, нужно проставить "+" перед всеми предлогами. В предложении может быть как 1, так и несколько предлогов, также если в предложении нет предлогов вовсе- необходимо возвращать исходное предложение. Спасибо.
К сожалению файл с вложением прикрепить не получается, выдает ошибку, подобная тема обсуждалась тут- http://www.excelworld.ru/forum/2-19140-1#235369 и в ней есть пример, но там не все необходимые условия соблюдены.alexp21
Сообщение отредактировал alexp21 - Четверг, 26.10.2017, 14:13
собственно по ссылке http://www.excelworld.ru/forum/2-19140-1#235369 , там есть файл с примером "К сообщению приложен файл: 7319167.xlsx(8Kb)", но в нем редактируется только 1 предлог а мне надо все из предложения, + если предлога нет вообще подставлялось предложение а не ошибка.
собственно по ссылке http://www.excelworld.ru/forum/2-19140-1#235369 , там есть файл с примером "К сообщению приложен файл: 7319167.xlsx(8Kb)", но в нем редактируется только 1 предлог а мне надо все из предложения, + если предлога нет вообще подставлялось предложение а не ошибка.alexp21
Function repl(t$, r As Range) s = " " & LCase(t) & " " For Each c In r s = Replace(s, " " & c & " ", " +" & c & " ") Next s = Trim(s) repl = s End Function
[/vba]
ну не хотите, как хотите - вот UDF: [vba]
Код
Function repl(t$, r As Range) s = " " & LCase(t) & " " For Each c In r s = Replace(s, " " & c & " ", " +" & c & " ") Next s = Trim(s) repl = s End Function