Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53521 / 76736

←次へ　｜　前へ→


	【28028】VariantにRangeオブジェクトを代入したとき

ちくたく - 05/8/26(金) 19:53 -


	引用なし

	パスワード

いつもお世話になっています。
標題についてですが、例えば、

Dim rVar as Variant
rVar = Range("A1:A10")

とすると、rVarは1次元目にA1～A10の値が入った
2次元配列になりますよね。
このrVarを1次元にする方法、つまり、
rVal(1,1) = Range("A1").Valueなのを、
rVal(1) = Range("A1").Value
にする方法はありますか？

例えば、
Dim newArr() As Integer, i As Integer
ReDim newArr(UBound(rVar))
For i = 1 To UBound(rVar)
　　 newArr(i) = rVar(i,1)
Next i
のような方法は思いつきますが、
わざわざループ用意するのもなぁ、と思いまして。

目的は、うざったいなぁ、と思う気分的なものなのですが。。。
よろしくお願いします。

0 hits

▼

【28028】VariantにRangeオブジェクトを代入したとき ちくたく 05/8/26(金) 19:53

≪