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