функция заменить в excel

Ответ от Jimmyyong forum[эксперт]
Cоздаешь макрос, текст которого приведен ниже. С этим макросом можешь заменять хоть тысячу значений одним нажатием.
Sub Макрос1()
tm = 10 'Количество заменяемых значений
Dim Zam_W: ReDim Zam_W(tm) 'Массив для храниея "ЧТО заменяем"
Dim Zam_T: ReDim Zam_T(tm) 'Массив для храниея "Чем заменяем"
'Перечисляем ЧТО и ЧЕМ заменяем
Zam_W(1) = "Значение 1" 'ЧТО заменяем
Zam_T(1) = "Значение А" 'ЧЕМ заменяем
Zam_W(2) = "Значение 2" 'ЧТО заменяем
Zam_T(2) = "Значение В" 'ЧЕМ заменяем
'Производим замену путем обращения к функции "Zamena"
For i = 1 To tm
If Zam_W(i) <> 0 Then Call Zamena(Zam_W(i), Zam_T(i))
Next i
End Sub
'Функция замены
Function Zamena(z_21, z_22)
Cells.Replace What:=z_21, replacement:=z_22, MatchCase:=True
End Function