Excel VBA質問箱 IV

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

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


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

34337 / 76732

←次へ　｜　前へ→


	【47605】Re:二次元配列をシートの範囲に一発転写

りん

- 07/3/15(木) 21:24 -


	引用なし

	パスワード

hiyo さん、こんばんわ。

>二次元配列をシートの範囲に一発転写する方法はあるでしょうか？
配列が（行,列）になっていれば、そのサイズに合わせた範囲.Value = 配列()
で可能です。

>また逆に、セル範囲を一発で二次元配列に格納する方法もあれば教えてください。

Sub test()
　 Dim v1 As Variant, ws As Worksheet
　 '作業用ブック追加
　 Set ws = Workbooks.Add.Worksheets(1)
　 '
　 MsgBox "セルに適当な値をセット"
　 Range("A1:B10").Value = 1
　 '
　 MsgBox "配列に格納"
　 v1 = Range("A1:B10").Value
　 '
　 MsgBox "新しい範囲にデータをセット"
　 Range("E1:F10").Value = v1
　 '
　 MsgBox "OK?"
　 'ブックを閉じる
　 ws.Parent.Saved = True
　 ws.Parent.Close
　 Set ws = Nothing
End Sub
これで確認してみてください。

2 hits

▼

【47604】二次元配列をシートの範囲に一発転写 hiyo 07/3/15(木) 21:05