Posted on by

[VBA]Excelで二次元配列の行と列を入れ替える

超まとめ

WorksheetFunction.Transpose(<二次元配列>)で、行と列を入れ替えた結果(2次元配列)を取得できます。
変換後の配列の開始インデックスは1からになることに注意が必要です。

詳しく

二次元配列を作って、WorksheetFunction.Transposeを使って行と列を入れ替えるサンプルプログラムです。

ソースを表示
印刷SyntaxHighlighterについて
1Sub test()
2 
3    '行列入れ替え前の2次元配列
4    Dim baseArray()
5    ReDim baseArray(1 To 3, 1 To 2)
6 
7    'テストデータ作成
8    Dim currentValue
9    currentValue = 0
10    Dim cnt1, cnt2
11    For cnt1 = LBound(baseArray, 1) To UBound(baseArray, 1)
12        For cnt2 = LBound(baseArray, 2) To UBound(baseArray, 2)
13        baseArray(cnt1, cnt2) = currentValue
14        currentValue = currentValue + 1
15        Next
16    Next
17 
18    '行列を入れ替え
19    Dim transedArray()
20    transedArray = WorksheetFunction.Transpose(baseArray)     'ここにブレークポイントを張って実行
21 
22End Sub

実行結果

baseArrayが元々の二次元配列(2×3)で、transedArrayが行列入れ替えを行ったあとの配列です。
| 0 | 1 |
| 2 | 3 |
| 4 | 5 |
が
| 0 | 2 | 4 |
| 1 | 3 | 5 |
に変換され、行と列が入れ替わっているのがわかります。

注意点

Transposeの結果として得た二次元配列は、開始インデックスが「1」です。
入れ替え前の配列の開始インデックスがなんであろうと、1からスタートになりますので、この点は注意して遣う必要があります。

Published by tfumiaki

4 Replies to “[VBA]Excelで二次元配列の行と列を入れ替える”

  1. ピンバック: [VBA]2次元配列の1次元目をRedim Preserveする | エンジニ屋

  2. Thank you for the auspicious writeup. It in fact was a amusement account
    it. Look advanced to far added agreeable from you! However,
    how could we communicate?

    返信

אישורי הגעה へ返信するコメントをキャンセル