Доработка МАССОВАЯ ЗАМЕНА СЛОВ

[Bartz2]

Добрый день, помогите доработать второй вариант массовой замены слов (https://www.excel-vba.ru/chto-umeet-excel/massovaya-zamena-slov/) так чтобы замена была не по фразах а сразу целой ячейки. Если в ячейки была найдена фраза с листа Соответствий заменить значение этой ячейки на внесенное значение. Помогите пожалуйста.

[boa]

Конечно, лучше к Дмитрию обратиться, но, я надеюсь, он не обидится

Замените код между строками "'заменяем" и "Application.ScreenUpdating = 1" на следующий:

Код: (vb)

    Dim r As Range
For Each r In Selection
        For lr = 1 To UBound(avArr, 1)
            s = avArr(lr, lToFindCol)
            If Len(s) Then 'если значение для замены не пустое
                If InStr(1, r, s) Then _
                r.Value = avArr(lr, lToReplaceCol)
            End If
        Next lr
    Next r