エクセルVBAの配列について

質問

エクセルVBAの配列について

VBAをはじめたばかりの初心者です。
現在、下記のようにデータを配列の中に入れ、
別シートに書き出そうとしております。

（配列へ読み込むところのみ）

Dim 配列(1 To 件数, 1 To 9) As Variant

For j =1 To 件数
For i = 2 To L

If Cells(i, 2).Value = Tx_month Then

For k = 3 To 11

配列(j, k - 2) = Cells(i, k).Value

Next k

End If

Next j,i

現状では、データの最終行のみを「件数」分書き出してしまいます。
ｊとｉのForが重なっているからだと思うのですが、どう書き直したら良いか分かりません。

質問をさせていただくのも初めてなので、分かりづらく恐縮ですが
お力添え頂けますと幸いです。

どうぞ宜しくお願い致します。

回答No.1

keithin · ベストアンサー

色々あると思いますがまぁそういうのは置いておいて，今の着想を出来るだけ生かすとしたら…

例：
Dim 配列(1 To 件数, 1 To 9) As Variant

件数カウンタ = 0
for i = 2 to L
　if cells(i, 2).value = tx_month then
　　件数カウンタ = 件数カウンタ + 1
　　for k = 3 to 11
　　　配列(件数カウンタ，k - 2) = cells(i, k).value
　　next k
　end if
next i

といった具合かなと思います。

お礼

ありがとうございました！
異なるデータが書けるようになりました！！！