架空の映画のネタバレレビュー

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

解決済

  • 質問者：hiro_tok
  • 質問日時：
  • 回答数：2件

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

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.1ベストアンサー

  • 回答者： n-jun
  • 回答日時：

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



とか？
    • good
    • 9
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2009/09/02 11:35

No.2

  • 回答者： mt2008
  • 回答日時：

こんなのも


Range("B1:D1").AutoFill Destination:=Range("B1:D" & Range("A1").End(xlDown).Row())
    • good
    • 20
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2009/09/02 11:37

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

Q質問する（無料）

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

関連するカテゴリからQ&Aを探す

ページトップページトップ

おすすめ情報

Q質問する（無料）

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

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報