Excel VBA質問箱 IV

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

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


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

19696 / 76732

←次へ　｜　前へ→


	【62464】Re:配列をセルに複写させる方法

kanabun - 09/7/22(水) 23:36 -


	引用なし

	パスワード

▼miyake さん：
> 結果は
>aaa
>aaa
>aaa
>aaa
>aaa
>となってしまいます。
一次元配列を行方向に貼り付けているから、そうなります。
行数が分かっているのであれば、
Dim myList(1 to 5, 1 to 1)
の2次元配列にセルの値を代入するようにしてください。

> aaa～eeeの値をループ処理させずに転写させるにはどうしたらいいのでしょうか。

配列を介してなら、
　Dim Arry As Variant
　Arry = Range("A1").Resize(5).Value
　Range("B1").Resize(5).Value = Arry
でしょうか？

でも、
直接値をCopyしちゃってもいいのでは？

　With Range("A1:A5")
　　 .Offset(,1).Value = .Value
　End With

とか、

　Range("A1:A5").Copy
　Range("B1").PasteSpecial xlPasteValues
　Application.CutCopyMode = True

とかで、どうですか？

537 hits

▼

【62460】配列をセルに複写させる方法 miyake 09/7/22(水) 23:00