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

質問

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

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

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

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

回答No.1

n-jun · ベストアンサー

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

とか？

お礼

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

回答No.2

mt2008

こんなのも
Range("B1:D1").AutoFill Destination:=Range("B1:D" & Range("A1").End(xlDown).Row())

お礼

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