VBAで変数を入れた計算式をセルに埋め込みたい

Question

やりたいこと

アンケート集計（ルーチンで発生）のため、VBAでセルに計算式を埋め込もうとしています。
その計算式の中に、変数を入れて成立させたいのですが、
エラーが出てうまくいきません。

エラーが出ているコード

    1行目  Dim k As Variant
    2行目  Dim t As Variant
（中略）
    3行目   t = .Cells(k, 3).Value　'（例）COUNTIFの検索条件「5.満足」が代入されます
    4行目   .Cells(k, 4).Formula = "= COUNTIF(Data!E:E,"&t&")"

⇒　実行すると、4行目部分で、
コンパイルエラー　修正候補：ステートメントの最後　とでます。

望んでいる状態

この例の場合、該当のセルに
= COUNTIF(Data!E:E,"5.満足")
という数式が埋め込まれることです。

ご教示いただければ幸いです。

Answer 1

tを結合させる「&」にスペースを入れてみてください。
また、そのままだと式がセルに入力された時、「t」が「"」で囲まれていないと思います。
「"」をエスケープして式内に記述してください。

.Cells(k, 4).Formula = "= COUNTIF(Data!E:E, """ & t & """)"

Comments

[kyosuke0905]

早速のご回答ありがとうございます！！
ご指摘いただいた式で、望んだ結果が得られました。大変助かりました。