☰

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

tag-icon • tag-icon microsoft-excel worksheet-function
Как преобразовать строку Excel в формулу?

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

решение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

Связанный контент