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

发布时间：2020-12-17 07:47:30 所属栏目：百科来源：网络整理

导读：原文: http://yumem.cocolog-nifty.com/excelvba/2011/03/2-fb9c.html 2次元配列の行列を入れ替える以前の記事でセルの範囲の行列の入れ替えをコピぺで実行する方法を紹介しました。今回は 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")),_ UBound(Application.WorksheetFunction.Transpose(Range("A1:C5")),2)) = _ Application.WorksheetFunction.Transpose(Range("A1:C5"))

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!