【Excel】複数条件の論理式をVBAマクロでオートフィルするには？【エクセル】

質問

セルF2からF5000までは
=VLOOKUP(C2,sp_csv!C:H,6,0)
という関数をオートフィルで入力できるようにマクロを組みました。

Sub Macro1()
セル範囲 = "F2:F5000"
数式 = "=VLOOKUP(C2,sp_csv!C:H,6,0)"
Range(セル範囲).Formula = 数式
End Sub

同様にセルG2からG5000は
=IF(AND(E2>0,F2=0),"削除",IF(AND(E2=0,F2>0),"新規","変動なし"))
という関数を入れてオートフィルさせたいのですが、コンパイルエラーが出てしまいます。

Sub Macro2()
セル範囲 = "G2:G5000"
数式 = "=IF(AND(E2>0,F2=0),"削除",IF(AND(E2=0,F2>0),"新規","変動なし"))"
Range(セル範囲).Formula = 数式
End Sub

複数条件の論理式をVBAマクロでオートフィルするにはどうしたらいいのでしょうか？

回答No.2

mu2011 · ベストアンサー

引用符が不足しているからだと思います。
数式 = "=IF(AND(E2>0,F2=0),""削除"",IF(AND(E2=0,F2>0),""新規"",""変動なし""))"をお試し下さい。

お礼

回答ありがとうございます。
私の引用符に対する知識が足りなかったようです。
上記の通りで正常に動きました。
これを参考に色々と試してみます、ありがとうございました。

回答No.1

n-jun

どこかのセルに、
=IF(AND(E2>0,F2=0),"削除",IF(AND(E2=0,F2>0),"新規","変動なし"))
を打ち込むマクロの自動記録を取ってみると、""の使い方がわかるかも？

お礼

回答ありがとうございます。
私の引用符に対する知識が足りなかったようです。
色々と勉強してみます。