|
こんにちは
▼ささ さん:
>ウッシ さん有難う御座いました
>
>Dim v(1) As Variant
>v(1) = Range("A1:D5").Value
>にすれば
>配列の中に2次配列として取り込める
>ということですよね
>そく使わせて頂きます
違いますよ。
v(1)にしてしまうと「Option Base 1」を指定してない場合は、V(0)が空で
v(1)の中に、V(1)(0, 0)〜
のようにセル範囲の値が配列として取り込まれてしまいます。
Sub test()
Dim r As Range
Dim v As Variant
Dim i As Long
Dim j As Long
Dim k As Long
'準備
For Each r In Range("A1:D5")
r.Value = i
i = i + 1
Next
'一気に取り込み
v = Range("A1:D5").Value
'確認
For j = LBound(v, 1) To UBound(v, 1)
For k = LBound(v, 2) To UBound(v, 2)
Debug.Print v(j, k)
Next
Next
End Sub
|
|