Home » エクセルマクロ・Excel VBAの使い方 » 配列 » Excel VBAで配列の行列・縦横を入れ替える

Excel VBAで配列の行列・縦横を入れ替える

対象：Excel2007, Excel2010, Excel2013

「excel vba 配列の行列を入れ替える」
「excel vba 配列の縦横入替え」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excel VBA（Visual Basic for Applications）で、配列の、縦横・行列を入れ替える方法を探している方による検索です。

Excel VBAでは、Excelのワークシート関数・TRANSPOSE関数を、VBAから利用することで、配列の縦横・行列入れ替えが、とても簡単にできてしまいます。

［スポンサードリンク］

配列の行列・縦横を入れ替えるサンプルマクロ

以下ようなのマクロで、TRANSPOSE関数を使うことで、配列の縦横・行列を簡単に入れ替えられることが確認できるでしょう。

Sub 配列の行列入れ替え()

　Dim arr_1 As Variant
　Dim arr_2 As Variant

　arr_1 = Selection.Value
　arr_2 = WorksheetFunction.Transpose(arr_1)

　Stop

End Sub

配列の縦横・行列の入れ替えを行っているのは、
　arr_2 = WorksheetFunction.Transpose(arr_1)
の部分です。

配列・arr_1の縦横・行列を入れ替えて、配列・arr_2に格納しています。

WorksheetFunctionプロパティでWorksheetFunctionオブジェクトを取得して、そのTransposeメソッド（TRANSPOSE関数）を呼んでいます。

Excel VBAで配列の行列・縦横を入れ替える

上図のように、配列に格納したいデータをワークシート上に入力しておいて、そのセル範囲を選択しておいてから、サンプルマクロを実行すると、

Excel VBAで配列の行列・縦横を入れ替える

Stop文の位置でステップ実行に入ります。

このステップ実行に入っている状態で、VBE（Visual Basic Editor）のメニュー［表示］－［ローカルウィンドウ］から、ローカルウィンドウを表示してやれば、

Excel VBAで配列の行列・縦横を入れ替える

上図のように、配列の縦横・行列が入れ替わっていることをご確認いただけるはずです。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » 配列 » Excel VBAで配列の行列・縦横を入れ替える

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「配列」の記事一覧