Перечисление критериев для замены текста

[Обыватель]

Здравствуйте, уважаемые ремесленники!

Использую для замены код типа:

Selection.Replace "a", vbNullString, xlPart, xlByRows, True
Selection.Replace "b", vbNullString, xlPart, xlByRows, True
Selection.Replace "s", vbNullString, xlPart, xlByRows, True
Selection.Replace "d", vbNullString, xlPart, xlByRows, True

Регеню его в EXCEL с помощью сцепления значений "&"

Но понимаю, что это, мягко говоря, не правильно.

Подскажите, пожалуйста, как правильно записать перечисление критериев замены.

Спасибо.

[Казанский]

Сообщение от Обыватель

Регеню его в EXCEL с помощью сцепления значений "&"

На русский переведите, пожалуйста.

Сообщение от Обыватель

как правильно записать перечисление критериев замены

Например так

for each x in split("a b s d")
  Selection.Replace x, vbNullString, xlPart, xlByRows, True
next

[Обыватель]

Что-то не выходит у меня "каменая чаша".

Походу в коде накосячил.

Посмотрите, пожалуйста, что не так?

Спасибо

[Aleksandr H.]

Сообщение от Обыватель

Посмотрите, пожалуйста, что не так?

а "так" єто как?

Sub multiFindandReplace4()

Dim myList As Range, myRange As Range, cell As Range, fnd As Range
Set myList = Sheets("критерии").Range("A1:B5794") 'two column range with find/replace pairs
Set myRange = Sheets("результат").Range("A1:A16867") 'range to be searched and replace
For Each cell In myList.Columns(1).Cells
    myRange.Columns(1).Cells.Replace cell, cell.Offset(0, 1), xlPart, xlByRows, True
Next cell
End Sub

[Обыватель]

Все работает =) Благодарю!