Macedon написал: как сделано на листе "Список формул";
- хлопотно и не нужно в общем. В один столбец адрес, в соседний формулу. Потом и восстанавливать проще. Но это при условии что строки\ячейки с листа-исходника не будут удаляться\добавляться. Если будут, то каждый раз надо восстанавливать резервные формулы..
Код
Sub www()
Dim c As Range, r As Range
With Sheets("Исходные данные") '.UsedRange
For Each c In Sheets("Исходные данные").Cells.SpecialCells(xlCellTypeFormulas, 23)
Set r = Sheets("Список формул").Cells(Rows.Count, 1).End(xlUp)(2)
r(1, 2).NumberFormat = "@": r(1, 2).Value = c.Formula: r = c.Address
Next
End With
End Sub