Как преобразовать строку Excel в формулу?

Question

Я разработал электронную таблицу со многими формулами и отправил ее коллеге, политика брандмауэра которого запрещает формулы Excel. (Не спрашивай). Поэтому, используя поиск и замену, я поставил перед апострофами все знаки равенства. Так что =CCONCATENATE(A1,A2) стал '=CONCATENATE(A1, A2) . Хотя брандмауэр пропускает файл, нам нелегко повернуть процесс вспять. Поиск не находит ведущего апострофа. Попытки избежать апостроф или использовать CHAR(39) для его удаления оказались безуспешными. Спасибо за любую помощь!

Answer 1

Запуск этого короткого макроса восстановит все ваши формулы:

Sub RestoreFormulas()
    Dim r As Range

    For Each r In ActiveSheet.UsedRange
        If Left(r.Value, 1) = "=" Then r.Formula = r.Value
    Next r
End Sub