Sub Округл_в_выделении()
Dim frm
Application.ScreenUpdating = False
For Each frm In Selection
If InStr(frm.Formula, "ROUND") = 0 Then
frm.FormulaR1C1 = "=ROUND(" & Replace(frm.Formula, "=", "") & ",0)"
frm.Replace "'", ""
End If
Next
Application.ScreenUpdating = True
End Sub
для некоторых формул он работает хорошо, но для вот такой