Как заменить формулу в ячейке с выводом формулы?

Question

Как заменить формулу в ячейке выводом формулы?

Мне просто нужно "= ПРАВО (E86, LEN (E86) + 1-НАЙТИ (" (", E86,1))" чтобы стать "(e)"

Есть ли способ сделать это для всего листа? Заменить все ячейки формулами с текстом, который они отображают? Я использую версию 2003.

Answer 1

Выберите ячейки, которые вы хотите заменить, и скопируйте их. Затем перейдите в «Edit-> Paste Special» и выберите значения вместо всех.

Поскольку это не изменяет ячейки без формул, вы можете выбрать весь лист и скопировать-> вставить специальное, чтобы удалить все формулы.

Чтобы сделать это программно, посмотрите на ответ Стива. У него есть код, который вам нужен.

Answer 2

В качестве альтернативы будет работать что-то вроде следующего, если вы хотите избежать использования буфера обмена

Dim r as range
For each r in Worksheets("Sheet1").UsedRange.Cells
   r.Value = r.Value
Next

Боюсь, у меня нет превосходства, поэтому вам нужно проверить синтаксис.

Answer 3

Другой способ сделать это: дважды щелкнуть по соответствующей ячейке и нажать F9.