Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51029 / 76738

←次へ　｜　前へ→


	【30585】毎月行数の違うデータを最終行まで合計し...

あかつき - 05/10/31(月) 14:26 -


	引用なし

	パスワード

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

　　　(列)　　　A　　　　　　B　　 C　　　D　　　　　E　　　　　F
(行)　　　　　ﾕﾆｯﾄ名　　　　日　　時　　　　　　　　データ１　データ２
　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メソッドが失敗しました」というメッセージが表示されてしまい、処理できません。

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

0 hits

▼

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

≪