Есть такая строка: ёЕСЛИ(K$2<ё($D16+$D17-1);ЕСЛИ(СУММ($I9:K9)+$D22<ё$D18;K9;ЕСЛИ(СУММ($I9:K9)+$D22<ё$D18;$D18-СУММ($I9:K9)+$D22;0));0)*ЕСЛИ(ВПР($B13;Fil!$C$12:$F$28;3)ёВПР($B13;Fil!$C$12:$F$28;4);ЕСЛИ($D21<ё0,05;1 ;) ;1)*ЕСЛИ(K$2<$D15+$D17;1 ;)
Пытаюсь заменить "ё" на "=" методом cells.replace, но не получается :( Подскажите, пожалуйста, где я ошибся? Даже макрорекордер не может повторить такое... И ошибок нет.
Sub asd()
Dim Cell As Range
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each Cell In Selection.Cells
Cell.Activate
ActiveCell.FormulaLocal = Replace(ActiveCell, "ё", "=")
Next
Application.ScreenUpdating = True
End Sub