エクセルVBAで配列？

質問

以下は、文字列"t", "e", "s", "t"を配列に取り込み、セルに表示する例ですが、
ar = Array("t", "e", "s", "t")
なら作動しますが、セル範囲から取り込もうと、
ar = Range("A1:D1").Value
とするとエラーになります。
どうしてでしょうか？

Sub test()
Dim ar As Variant
Dim n As Integer
ar = Array("t", "e", "s", "t")
'ar = Range("A1:D1").Value
For n = LBound(ar) To UBound(ar)
Cells(n + 1, 5) = ar(n)
Next n
End Sub

回答No.4

Wendy02 · ベストアンサー

こんにちは。

今回は、配列がテーマですから、配列のお答えをしなくてはならないと思います。

>ar = Range("A1:D1").Value

通称、ジャグ配列といいます。２次元配列の変形したものです。
本来は、参考の部分のように、1次元側と、2次元側、両方を調べなくてはなりません。

Set で、Rangeオブジェクトにした場合は、配列変数ではありません。あくまでも、ar が、Variant だから、Rangeオブジェクトを変数として可能になるだけです。

Sub test2()
　　Dim ar As Variant
　　Dim n As Integer
　　Dim i As Integer
　　Dim j As Integer

　　ar = Range("A1:D1").Value
　　'参考
　　i = UBound(ar, 1)
　　j = UBound(ar, 2)

　　For n = LBound(ar, 2) To UBound(ar, 2)
　　　　Cells(n + 1, 5).Value = ar(1, n)
　　Next n
End Sub

セルの値は、とびとびでも、同じことです。

なお、2次元までが精一杯で、それ以上の次元はややこしくてしょうがないです。
また、動的配列の場合は、1次元側を触ることは出来ません。2次元側で処理します。

お礼

i = UBound(ar, 1)
j = UBound(ar, 2)

一次元と二次元で違うことがわかりました。
有難うございました。

回答No.2

noname#70726

２つのやり方では、戻ってくる配列の次元数が異なるからではないでしょうか？

> ar = Array("t", "e", "s", "t")
こちらは、一次元配列ですよね。

> ar = Range("A1:D1").Value
こちらは、二次元配列になります。
なぜなら、Range("A1:D2").Value のように範囲指定した場合にも対応できるようになっているからです。

A1に"t", B1に"e", C1に"s", D1に"t"を設定した場合、Range("A1:D1").Value の戻りの ar には、以下のように設定されます。

ar(1,1)="t", ar(1,2)="e", ar(1,3)="s", ar(1,4)="t"

変数 ar の中身を「ウォッチ式の追加」で見れば、ご質問者様の環境下でも見れると思います。

ソースコードは書きませんが、上記の For 文を、二次元配列に対応させて見られてはいかがでしょうか。

お礼

> なぜなら、Range("A1:D2").Value のように範囲指定した場合にも対応できるようになっているからです。

> ar(1,1)="t", ar(1,2)="e", ar(1,3)="s", ar(1,4)="t"

非常にわかり易い解説を有難うございました。

回答No.1

hana-hana3

セルをデータとして取り込むと、自動的に”２次元配列”として扱われます。

SET ar = Range("A1:D1").Value とすると変数に取込出来ます。
ar(n,1)　とする事で、取り込んだデータを扱う事が出来ます。

お礼

さっそくありがとうございます。

Sub test()
Dim ar As Variant
Dim n As Integer
Set ar = Range("A1:D1").Value
For n = LBound(ar) To UBound(ar)
Cells(n + 1, 5) = ar(n, 1)
Next n
End Sub

実行時エラー13で型が一致しませんとなりました。