質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

288閲覧

VBAの二次元配列を違う配列に入れるには?

kihokutarou

総合スコア59

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2022/07/26 07:42

前提

VBA勉強中です

実現したいこと

セル範囲を配列に入れた後、複雑な並べ替えをしたいと思っています。ただ動的な配列について全く分かっておらず、手が出ません。
Range("a1:h3")を配列に入れていますが、要は並べ替えをしたいのです。
2行目を1行目へ
3行目を2行目へ
1行目を3行目へ

勿論一度セルに書き出せばできますが、配列操作だけでできないものかとチャレンジ中です。
よろしくお願いします。

該当のソースコード

VBA

1Sub test配列() 2 Dim i As Long 3 Dim buf As Variant, buf2 As Variant 4 5 buf = Range("a1:h3").Value 6 7 For i = 1 To 8 8 buf2(1, i) = buf(2, i) 9 Next 10 ReDim buf2(2) 11 For i = 1 To 8 12 buf2(2, i) = buf(3, i) 13 Next 14 ReDim buf2(3) 15 For i = 1 To 8 16 buf2(3, i) = buf(1, i) 17 Next 18 19End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

以下のようにしてください。

VBA

1Sub test配列() 2 Dim i As Long 3 Dim buf As Variant, buf2 As Variant 4 5 buf = Range("a1:h3").Value 6 ReDim buf2(1 To 3, 1 To 8) 7 For i = 1 To 8 8 buf2(1, i) = buf(2, i) 9 Next 10 For i = 1 To 8 11 buf2(2, i) = buf(3, i) 12 Next 13 For i = 1 To 8 14 buf2(3, i) = buf(1, i) 15 Next 16 Range("a1:h3").Value = buf2 17End Sub 18

投稿2022/07/26 08:10

tatsu99

総合スコア5424

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

kihokutarou

2022/07/27 11:30

なるほど!2次元配列の動的な部分をどのように表現するのかわかりました。toで膨らませるんですね、勉強になりました!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問