VBAにて データを分解して配列に取り込みたい

質問

VBAにて、
このようなデータを分解して、次のような配列にしたいのですが、どうすればよいか教えてください。
iro = "赤、3、RGB(255,0,0)"

このようにしたい
iro(3,0)="赤"
iro(3,1)=3
iro(3,2)=RGB(255,0,0)

回答No.1

kybo · ベストアンサー

以下の様な感じでよろしいかと。

Sub macro()
Dim iro1, iro(3, 3)
iro1 = "赤、3、RGB(255,0,0)"
iro(3, 0) = Split(iro1, "、")(0)
iro(3, 1) = Split(iro1, "、")(1)
iro(3, 2) = Split(iro1, "、")(2)
MsgBox iro(3, 2)
End Sub

お礼

回答ありがとうございます。
うまくいきました。

別途、新たな疑問が発生したが、内容が異なるので、改めて質問させていただきます。