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

概述原文: http://yumem.cocolog-nifty.com/excelvba/2011/03/2-fb9c.html   2次元配列の行列を入れ替える 以前の記事で セルの範囲の行列の入れ替えを コピぺで実行する方法を紹介しました。 今回は 2次元配列の行列を入れ替えます。 これには ワークシート関数のTransposeを使用します。 行列を入れ替えたい配列vDataがあるとすると これ

原文:

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")),_ UBound(Application.WorksheetFunction.Transpose(Range("A1:C5")),2)) = _ Application.WorksheetFunction.Transpose(Range("A1:C5"))

总结

以上是内存溢出为你收集整理的VB 2次元配列の行列を入れ替える全部内容，希望文章能够帮你解决VB 2次元配列の行列を入れ替える所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。