微妙

数式を新規ブックに書き出し改良が必要

Sub Sample()
  Set myCels = Selection
  i = 1
  With Application.Workbooks.Add.Worksheets(1)
    For Each myCel In myCels
      .Cells(i, 1) = myCel.Address
      .Cells(i, 2) = myCel
      If myCel <> myCel.Formula Then
        .Cells(i, 3) = "'" & myCel.Formula
      End If
      i = i + 1
    Next myCel
  End With
 End Sub