>>305
これでどう?

Sub Macro1()
Dim GetSheet As Worksheet
Dim PutSheet As Worksheet
Dim cel As Range
Set GetSheet = ThisWorkbook.Worksheets("sheet1") '計算式が入ってるシート
Set PutSheet = ThisWorkbook.Worksheets("sheet2") '内容を書き出すシート
Row = 0
For Each cel In GetSheet.Cells.SpecialCells(xlCellTypeFormulas)
　　Row = Row + 1
　　PutSheet.Cells(Row, "A").Value = cel.Address
　　PutSheet.Cells(Row, "B").NumberFormatLocal = "@"
　　PutSheet.Cells(Row, "B").Value = cel.FormulaLocal
Next
End Sub