【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 回答日時： 2009/03/16 16:39

引用符が不足しているからだと思います。

数式 = "=IF(AND(E2>0,F2=0),""削除"",IF(AND(E2=0,F2>0),""新規"",""変動なし""))"をお試し下さい。

この回答へのお礼

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

お礼日時：2009/03/16 16:49

No.1 回答者： n-jun 回答日時： 2009/03/16 16:38

どこかのセルに、

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

この回答へのお礼

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

お礼日時：2009/03/16 16:47