【初月無料キャンペーン中】gooドクター

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

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

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

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

gooドクター

A 回答 (2件)

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



とか?
    • good
    • 8
この回答へのお礼

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

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

こんなのも


Range("B1:D1").AutoFill Destination:=Range("B1:D" & Range("A1").End(xlDown).Row())
    • good
    • 19
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング