前提
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
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/07/27 11:30