質問: "'" + Range(調査セル).Formula End Sub
回答: こんなややこしいことをせずとも、たった1行 Sub 式の抽出() Sheet2.Range("D10").Value = "'" & Sheet1.Range("D3").Formula End Sub って書けばいいですよ。 お書きになったVBAでの間違いは、文字列とオブジェクトを混同しているところにありますね。 これを正しく書き直すとすると、以下のようになります。 Option Explicit '変数の宣言 Dim 調査セル As Range 'Rangeオブジェクト(セルの内容等にアクセスする為のオブジェクト) Dim 報告セル As String '文字列 Sub 式の抽出() 'Sheet2をアクティブにする Worksheets("Sheet2").Select '調査セルにはSheet1のD3のセルを割り当てる。 '「調査セル」を通じて、このセルの文字列、式、色情報etcを取得できる。 Set 調査セル = Worksheets("Sheet1").Cells(3, 4) '「報告セル」という文字列方変数に「D10」という文字列を代入する。 報告セル = "D10" 'アクティブなワークシート(Sheet2)の「D10」というセルの値に空文字列を代入する。 Range(報告セル).Value = "" '調査セルのFormula(式の内容)属性を取得して、その値を代入する。 Range(報告セル).Value = "'" + 調査セル.Formula End Sub