セルVBA Excelに式を挿入するときのランタイムエラー1004 Excel

Question

VBAのセルに数式を挿入しようとするとランタイムエラー1004が発生します。私のExcelシートで

Iは等B、E、Hよう

細胞C2でIは、分割しようとして、列Aの日付および列B内のすべての3列を開始行1の株式ティッカーを有します列ヘッダー "FTSE"の下の行2の値によるB2の値。この式をセルに直接入力すると、次のようになります。

=IFERROR(B2/(VLOOKUP($A2,$A$2:$GMQ$261,MATCH("FTSE",$B$1:$GMQ$1,0)+1,FALSE)),"") 

私はvbaを使ってこれをしようとしています。これは私が持っているコードです：

Sub InsertFormula() 

    Range("C2").Select 
    ActiveCell.Formula = _ 
    "=IFERROR(B2/(VLOOKUP($A2,$A$2:$GMQ$261,MATCH(""FTSE"",$B$1:$GMQ$1,0)+1,FALSE)),"")" 

End Sub 

Answer 1

あなたはTEXT(,)として使用TEXT functionでダブルダブルquotes¹によって生成された混乱を減らすことができます。これは、""のように長さゼロの文字列を返します。二重引用符がない場合は""""のようになります。

Range("C2").Formula = _ 
"=IFERROR(B2/(VLOOKUP($A2, $A$2:$GMQ$261, MATCH(""FTSE"", $B$1:$GMQ$1 ,0)+1, FALSE)), TEXT(,))" 
'without the offset and subsequent adjustment with full column references 
Range("C2").Formula = _ 
"=IFERROR(B2/VLOOKUP($A2, $A:$GMQ, MATCH(""FTSE"", $1:$1 ,0), FALSE), TEXT(,))" 

---

_{を¹より多くの例についてHow to create strings containing double quotes in Excel formulas?を参照してください。}