Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51023 / 76732 ←次へ | 前へ→

【30585】毎月行数の違うデータを最終行まで合計し...
質問  あかつき  - 05/10/31(月) 14:26 -

引用なし
パスワード
   はじめまして。VBA初心者のため、こちらを拝見しながら、いつも勉強させていただいております。

   (列)   A      B   C   D     E     F
(行)     ユニット名    日  時        データ1 データ2
 1      A      1   0         100   200
 2      A      1   1         123   400
 3      A      1   2         234   468
 ・・・
4664      F      30  22         450   158
4665      F      30  23         340   245

データは毎月、上記のように出力されます。(なので、最終行が月ごとに違います)
D列の各行にE+Fの値を入れようとしているのですが、

With Range("D1")
    .FormulaR1C1 = "=RC[1]+RC[2]"
    .AutoFill Destination:=Range("D1", Range("D1").End(xlDown))
  End With

とすると、データのある4665行よりも下の、65533行までD列に延々0が入ってしまいます。


With Range("D1")
  .FormulaR1C1 = "=RC[1]+RC[2]"
  .AutoFill Destination:= _
    Range("A1", Range("A1").End(xlDown)).Offset(, 3)
End With

また、上記のようにすると、「RangeクラスのAutofillメソッドが失敗しました」というメッセージが表示されてしまい、処理できません。

どうやったらデータ行のあるところまでで計算式を止められるでしょうか。
どうぞよろしくお願いいたします。

2 hits

【30585】毎月行数の違うデータを最終行まで合計し... あかつき 05/10/31(月) 14:26 質問
【30586】Re:毎月行数の違うデータを最終行まで合計... tbtk 05/10/31(月) 14:43 回答
【30604】Re:毎月行数の違うデータを最終行まで合計... ponpon 05/10/31(月) 19:40 発言
【30606】Re:毎月行数の違うデータを最終行まで合計... Mi 05/10/31(月) 20:58 発言
【30624】Re:毎月行数の違うデータを最終行まで合... あかつき 05/11/1(火) 13:24 お礼

51023 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free