VB 2次元配列の行列を入れ替える

原文:

http://yumem.cocolog-nifty.com/excelvba/2011/03/2-fb9c.html

 

2次元配列の行列を入れ替える

以前の記事で
セルの範囲の行列の入れ替えを
コピぺで実行する方法を紹介しました。

今回は
2次元配列の行列を入れ替えます。

これには
ワークシート関数のTransposeを使用します。

行列を入れ替えたい配列vDataがあるとすると
これをワークシート関数のTransposeで行列を入れ替えるには
次のようにします。

Application.WorksheetFunction.Transpose(vData)

これがvDataの行列を入れ替えた配列になります。

コードはこちら

2次元配列の行列を入れ替えるコード：

Sub macro110326a() '2次元配列の行列を入れ替える     '入れ替える配列     Dim vData As Variant     '入れ替えた配列     Dim vData2 As Variant         '入れ替える配列を作成する     vData = Range("A1:C5")         '配列を入れ替えてvData2にいれる     vData2 = Application.WorksheetFunction.Transpose(vData)         '入れ替えた配列をシートに出力     Range("E1").Resize(UBound(vData2, 1), UBound(vData2, 2)) = vData2     End Sub

実行前のシート：

実行後のシート：

この関数を使って
シートの行列を入れ替えることもできるようです。

長いですが
下のようにすると範囲A1:C5の行列を入れ替えたものを
E1を左上とする範囲に入れることができます。

   
    Range("E1").Resize(UBound(Application.WorksheetFunction.Transpose(Range("A1:C5")), 1), _
        UBound(Application.WorksheetFunction.Transpose(Range("A1:C5")), 2)) = _
        Application.WorksheetFunction.Transpose(Range("A1:C5"))