Помогите решить макросом  
 
Удалить из ячейки определенные слова если ячейка содержит слово  
 
Исходный текст "листок корень дерево трава ветка листочек земля"  
 
если ячейка содержит "дерево" удалить из ячейки "листок, ветка, листочек"  
 
конечный результат "корень дерево трава земля"

Не то, нужен макрос

нужно что то типа, у меня массив 50 000 из которого автоматически надо удалить слова если ячейка содержит слово.    
   
Удаление   из   ячейки  определенного набора символов    
Есть текст в ячейке:  
Фрукт/ Apple" 123=  
 
Нужно чтобы стало:  
Apple123  
   
Sub ReplaceSymbols()  
Dim objRegExp As Object, sOlsString As String, sNewString As String  
sOlsString = "Фрукт/ Apple"""" 123="  
Set objRegExp = CreateObject("VBScript.RegExp")  
objRegExp.Global = True: objRegExp.IgnoreCase = True  
objRegExp.Pattern = "["""",\=,,\/, а-я,ё]"
sNewString = objRegExp.Replace(sOlsString, "")  
End Sub

Мало информации.  
Давайте по правилам - пример, что есть, как надо.  
А то иначе Ctrl+H и 3 раза замена, записать в макрос (или не записывать, нафига, если работа уже сделана?)

Офигеть...  
А начинали "листок, ветка, листочек" :)  
Вопрос требует времени, которого нет... не на 5 минут задачка.

"не 5 минут" свободных было, набросал пока вот так.  
но немного сомневаюсь - сейчас условия проверяются все и независимо друг от друга.  
возможно, логика подразумевается несколько иная.  
и я даже могу догадаться - какая, но хотелось бы услышать ТС.

Hugo, я бы с большим интересом посмотрел на твою реализацию этой задачи со словарями - ибо пока я такой необходимости не вижу, что называется, "в упор". :(

Дмитрий, я думаю надёжнее замену делать не заменой, а отбором :)  
Т.е. проверяем каждое слово на отсутствие в словаре исключений, отбираем нужные в новый массив.  
Как по скорости - не знаю, может Replace и будет быстрее, но зато гарантированно не будет накладок.

Во, це дило :)  
 
Sub example()  
   Dim text As String  
   text = "GPG1C PG1C 1CM PG1CM"  
   text = Application.Trim(ReplaceRE(text, "PG1C 1CM"))  
   MsgBox text  
End Sub  
 
 
Private Function ReplaceRE(ByRef expression As String, _  
                          ByRef find As String, _  
                          Optional ByRef replace As String) As String  
   Static re As Object  
   Dim f  
   If re Is Nothing Then  
       Set re = CreateObject("vbscript.regexp")  
   End If  
   For Each f In Split(find)  
       re.Pattern = "\b" & f & "\b"  
       expression = re.replace(expression, replace)  
   Next  
   ReplaceRE = expression  
End Function  
 
 
Можно прикрутить...

ОГРОМНОЕ СПАСИБО!!! ВСЕМ КТО ОТКЛИКНУЛСЯ !  
 
Вариант The_Prist работает так как я и хотел чтобы он работал. обрабатывает именно тот столбец который нужен, и можно задать большой список соответствий при этом он это делает довольно быстро.  
 
 
СПАСИБО!!!

Александр, теперь я не понял - ты перегрелся? :)  
Мне кажется, что с RegExp как раз правильно, то что нужно получается.  
Я там ниже чуть поэксперементировал с удалением - как раз удаляет нужные слова и не калечит ненужные.  
Теперь ещё сперва аналогичный поиск прикрутить (целого слова, а не части) - и считай готов надёжный вариант.  
Но мне кажется, что на словаре всёж получилось бы быстрее - тут ведь тоже на каждый поиск нужна своя строка, или вернее по каждой строке нужно делать кучу поисков, потом кучу замен...

Вот:  
 
Sub test()  
Dim s$  
s = "GPG1C PG1C"  
MsgBox s  
s = Replace(s, "PG1C", "")  
MsgBox s  
End Sub

Да, с пробелами должно получиться. Но их нужно и к заменяемым прибавлять, а после замен всё равно application.trim нужен.

Вот тут пробелов не хватало.  
Так нужно, иначе в начале-конце не заменяет:  
    avArr(lr, lc) = Replace(" " & avArr(lr, lc) & " ", " " & sStr(le) & " ", "")  
 
Тогда да, работает.