二次元配列

素人ですみません。
以下のようにマクロを組んだのですが、出力すると0になってしまいます。
お気づきの点がありましたら、ご指摘お願いします。

＜マクロ＞
Dim data(10000, 100) As Long

i=300
For d = 2 To 15 'データ入力
For k = 2 To i - 1
data(k, d) = Cells(k, d)
Next
Next
For d = 2 To 15 　'出力して試してみると・・・０となってしまいます
Cells(4, d + 20) = data(4, d + 20)
Next


＜データ＞sheet1のデータを二次元で読み込みたいと思っています。

日付ドル/円ユーロ/円ポンド/円
2007/1/22　121.690 　157.540 240.470
2007/1/23　121.620 　158.440 240.980
2007/1/24　121.140 　157.080 238.510
2007/1/25　121.170 　156.740 238.080
2007/1/26　121.530 　156.990 238.160
2007/1/29　121.730 　157.730 238.680

No.1 ベストアンサー 回答者： dsuekichi 回答日時： 2007/07/24 16:33

設定は、

> For d = 2 To 15 'データ入力
> data(k, d) = Cells(k, d)
で、第二添え字（ｄ）は2～15のところに設定しているのに、
なのに、出力時は、
> For d = 2 To 15 　
> Cells(4, d + 20) = data(4, d + 20)
d+20で、22～35を見ている・・・

単純に、見ているところが違うだけでは？

> Cells(4, d + 20) = data(4, d )
こうとでも、したいのでしょうか？

この回答へのお礼

あっ、そうです。
単純ミスでした。
どうもありがとうございます。

お礼日時：2007/07/24 22:11