|
▼yoshimura さん:
こんばんは。
まず、かみちゃん さんの投稿では
何がyoshimura さんの希望と違うのか
説明された方がよいですよ!!
vntData = Range("A1:A5").Value
かみちゃん さんの投稿でも結果的にこの1行で
配列が作成されていますよね?
次元が違うだけです。
次元までArray関数に合わせたいなら・・・。
>実際のデータは会社名です。
>現在は10数社ですが、将来増加されてシートに追加して
>それをArrayで処理していきたいと考えています。
>
>社名 販売商品 金額
>A AA
>B BC
>C CA
>A AB
>B
>A AA
>この後将来
>D
>G
Sub sample()
Dim myarray As Variant
With Range("a2", Cells(Rows.Count, "a").End(xlUp))
If .Row > 1 Then
myarray = Application.Transpose(.Value)
MsgBox "変数myarrayは、添え字の最小値が " & LBound(myarray) _
& vbCrLf & _
" 添え字の最大値は " & UBound(myarray) _
& vbCrLf & "の1次元配列です" & vbCrLf & _
"因みに myarray(1)の値は " & myarray(1) & " です"
End If
End With
End Sub
上記のコードを試してください
セルは、配列ですから、Array関数なんて使わなくても
配列に取り込めるのですよ!!
|
|