| |
はじめまして。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メソッドが失敗しました」というメッセージが表示されてしまい、処理できません。
どうやったらデータ行のあるところまでで計算式を止められるでしょうか。
どうぞよろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
