VBA 配列計算について 配列の入力に配列の使用

質問

配列に複数のセル値の合計値を設定したいと思っています。
求める合計値は複数あるため、出力も配列となります。
そこで下記のようにプログラムを考えたのですが、全て同じ値の配列として出力されてしまいます。
ＶＢＡではＣ言語のように配列の古い値に足していくことはできないのでしょうか？

（sum()は0で初期化）　（10個飛ばしのデータの合計値を算出）
For i = 0 To 10
For j = 0 To 5
sum(i)= sum(i) + Worksheets(sheetname).Cells(10, 3).Offset(j * 10, 0).Value
Next i
Next j

出力配列例　全て同じ値になってしまいます・・・
1.254
1.254
1.254
・・・

回避方法もしくはうまい計算方法などありませんでしょうか

回答No.1

nag0720 · ベストアンサー

なにを計算したいんでしょうか？

このコードでは、どのSum(i)にも、
Cells(10,3).Value + Cells(20,3).Value + ・・・・ + Cells(60,3).Value
の値が入るから、同じになるのは当然です。

i ごとにSum(i)を変えたいのなら、
Worksheets(sheetname).Cells(10, 3).Offset(j * 10, 0).Value
の中のどこかに i が入ってないと・・・・

お礼

oh...
初歩的なミスで何時間も頭を悩ませていました
的確な指摘ありがとうございますm(_ _)m