Макрос: "Заменить {слово1;слово2;..} на "пусто".

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

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

27.03.2012 19:56:19

Если записывать макрорекодером, то получается так:
Columns("C:C").Select
Selection.Replace What:=" пока", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" привет", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

А как сразу вставить несколько слов, для замены на "пусто"?

"..Сладку ягоду рвали вместе, горьку ягоду я одна."

MCH Пользователь Сообщений: 3907 Регистрация: 22.12.2012	#2 27.03.2012 20:05:46 ну можно например так: Sub MyReplace() For Each rpls In Array(" привет", " пока") Columns("C:C").Replace What:=rpls, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next End Sub

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#3 27.03.2012 20:06:56 Примерно так for each x in array(" пока", " привет") Columns("C").Replace What:=x, Replacement:="" 'и пр. аргументы next

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#4 27.03.2012 20:10:00 Если тема в продолжение http://www.planetaexcel.ru/forum.php?thread_id=39232 то там пустая строка 4 кавычки (""""), а не две ("")

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#5 27.03.2012 20:57:39 Спасибо, ребята. RAN, да это прододжение, спасибо. "..Сладку ягоду рвали вместе, горьку ягоду я одна."

Читают тему