Этот макрос в Excel 2016 не работал и ошибок не выдавал. Есть идеи?
Sub Replace() Dim rng As Range, cell As Range Set rng = Sheets("Sheet1").Range("B1:B62") For Each cell In rng cell = WorksheetFunction.Substitute(cell, "ü", "ü") Next End Sub