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 回答日時： 2012/05/18 02:52

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

このコードでは、どの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

お礼日時：2012/05/18 14:07