VBAで複数の数式セルを最終行までコピーするには？

エクセルで下記のような表を作成しています。

　　　A　　　B　　　C　　　D
１　項目1　数式　数式　数式
２　項目2
３　項目3
　　・
　　・
　　・

B1～D1の数式は項目1を参照したものです。
この時、2行目以下～最終行まで数式をコピーするには、
どのようなVBAを書けばよいでしょうか？

よろしくお願い致します。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2009/09/01 11:56

Range("A1", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1).Resize(, 3).Formula = Range("B1:D1").Formula

とか？

この回答へのお礼

ありがとうございます！
上記式でうまく動かすことができました！

お礼日時：2009/09/02 11:35

No.2 回答者： mt2008 回答日時： 2009/09/01 15:52

こんなのも

Range("B1:D1").AutoFill Destination:=Range("B1:D" & Range("A1").End(xlDown).Row())

この回答へのお礼

こちらでも同じ効果になるようですね！
応用して使わせて頂きます！ありがとうございました。

お礼日時：2009/09/02 11:37