08/08/07 21:40:46
>>715 （続き）
続いて、格納するためのループです。For Each で、
rngに含まれる各セルを１つずつtmpに取り出し、
data(r, c)に代入します。
ここでrは二次元配列の行番号、cは列番号です。
Dim r as Long, c as Integer, tmp as Variant
r = 1: c = 1
For Each tmp In rng
data(r, c) = tmp
c = c + 1
If ??? > data_n Then
r = r + 1
c = 1
End If
Next
???には何を入れればいいか、考えてみてください。