Может ли Excel показать формулу и ее результат одновременно?

в качестве альтернативы можно использовать LibreOffice.

существует расширение с именем отображать формулу и значение одновременно. Он должен делать то, что вам нужно.

вот способ автоматизировать то, что вы делали раньше.  Он сочетает в себе лучшие части ответ LonelyKnight на свой собственный вопрос, ответил Индрек и Billis ответ:

Sub Show_Formulas()
    Dim rng As Range, cell As Range
    row_offset = 10
    col_offset = 0
    Set rng = Range(Cells(1, 1), Cells(5, 7))

    On Error GoTo ErrHandler
    For Each cell In rng
        cell.Offset(row_offset, col_offset) = "'" & cell.Formula
    Next cell
    Exit Sub

ErrHandler:
    MsgBox "The cow jumped over the moon", , "Error!", Err.HelpFile, Err.HelpContext

End Sub

для каждой ячейки в указанном диапазоне (здесь жестко, как A1:G5), копирует формулу ячейки, защищенный Апострофом, к ячейке фиксированное смещение.  (См.как добавить VBA в MS Office? руководство по использованию VBA в Excel.) Вы просто должны не забудьте запустить этот макрос перед печатью.

или добавьте PrintOut , , , True заявление перед Exit Sub, и этот макрос распечатает лист для вас.  (Вы просто должны помнить, чтобы напечатать С помощью этого макроса.)  Четвертый параметр PrintOut is предварительный просмотр, значение True для того, чтобы Microsoft Excel вызвать предварительный просмотр перед печатью листа (таким образом, давая вам возможность отменить) или False (или опущено) для немедленной печати листа, безусловно.

или, если вы действительно обеспокоены тем, что забыли запустить это, вы можете использовать Private Sub Worksheet_Change для обновления отображаемых формул в любое время вы делаете любой изменить на листе.

бесплатная надстройка, FormulaDesk может сделать это за вас, а также отобразить формулу более понятным способом и точно определить ошибки в Формуле.

Как вы можете видеть на скриншоте ниже, вы можете просмотреть окончательный результат ячейки, и оригинальную формулу, и улучшенное explorable отображение формулы одновременно, как вы просили.

[раскрытие информации: я автор FormulaDesk]

можно создать дополнительный столбец, содержащий формулы: =Заменить(target_cell;1;1;"")

вот решение:

1. поставить апостроф ('), в начале формула
2. скопируйте его в строку ниже или в столбец рядом с ним
3. вернитесь к исходной формуле и удалите Апостроф

это работает.