前提・実現したいこと
コードで作成した配列を、まとめて貼り付けたい。
※サイズの変動する配列を貼り付ける為、Resizeを使用したい。
Resizeでなくとも、可変長の配列を貼り付けられるのであれば、
手段は何でも構いません。
発生している問題・エラーメッセージ
下記ソースコードで貼り付けた結果、
F1~F3に、「aa」「aa」「aa」と表示されます。
該当のソースコード
Dim temp: temp = Array() ReDim Preserve temp(UBound(temp) + 1) temp(UBound(temp)) = "aa" ReDim Preserve temp(UBound(temp) + 1) temp(UBound(temp)) = "bb" ReDim Preserve temp(UBound(temp) + 1) temp(UBound(temp)) = "cc" シート.Range("F1").Resize(UBound(temp, 1) + 1).value = temp
試したこと
Resizeが二次元配列だった場合については、
問題なく貼り付けることができましたが、
一次元配列になると途端に上手くいきません。
二次元配列(中身は1列)の場合は、参照した範囲で実行してますので下記のようなものです。
Dim temp: temp= シート.Range("A1:A3").value シート.Range("F2").Resize(UBound(temp, 1), UBound(temp, 2)).value = temp
補足情報(FW/ツールのバージョンなど)
Microsoft Excel 2010
参考になるかな?:http://www.moug.net/tech/exvba/0100049.html

回答2件
あなたの回答
tips
プレビュー