|
はじめまして。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メソッドが失敗しました」というメッセージが表示されてしまい、処理できません。
どうやったらデータ行のあるところまでで計算式を止められるでしょうか。
どうぞよろしくお願いいたします。
|
|