2022/07/23

二次元配列の切り出し

まず、二次元配列内の１つの要素を取り出すには「配列名（行インデックス番号 , 列インデックス番号）」とします。
図１のような配列Aが存在するときは、例えば「A(0,2)」とすることで、「き」という値が取り出せます。

図１別窓

これを別な方法で、図１の下側の式のようにIndex関数を使い「WorksheetFunction.Index(A,1,3)」とすることで、同様に要素を取り出す事が出来ます。「A(0,2)」の場合は引数には「インデックス番号」を与えたのに対し、Index関数の場合は「WorksheetFunction.Index(配列名 ,行の番号 ,列の番号)」とします。行・列の番号とは、配列内で何番目の行・列かを表す番号です。

もともとワークシート上で使用するINDEX関数は２つに分かれています。第一引数に「セル範囲」を指定する場合の「セル範囲形式」と、「配列定数」や「テーブル名」を指定する場合の「配列形式」です。
同様にVBAで使用するワークシート関数のIndexメソッドの第一引数にも、「セル範囲」の他に「配列」等が指定できます。

この「WorksheetFunction.Indexメソッド」の行の番号・列の番号に「ゼロ」を指定することで、図２のように「列全体」「行全体」を取得することが可能です。

図２別窓

但し、この配列の行・列の切り出しを行う時には、いくつかの注意点があります。
まず、二次元配列を「WorksheetFunction.Index(配列名 ,行の番号 ,0)」で「行の切り出し」を行った場合（図２の右上）には、切り出した配列は「一次元配列」となります。

一方、二次元配列を「WorksheetFunction.Index(配列名 ,0 ,列の番号)」で「列の切り出し」を行った場合には、「二次元配列」または「一次元配列」になります。
図２のように元の二次元配列が「複数行」の場合には、図２の右下のように「二次元配列」になるのですが、図３のように「単一行の二次元配列」から切り出した場合は、図３の右下のように「一次元配列」になるのです。
なお「行の切り出し」の場合には、複数行の二次元配列でも単一行の二次元配列でも、同じ一次元配列となります。

図３別窓

では複数行×単一列の場合は、図４のように「行の切り出し」は他と同じく「一次元配列」、「列の切り出し」は複数行ですので「二次元配列」となります。

図４別窓

最後に「番号・列番号ともゼロを指定した場合」を図５に示します。

図５別窓

行全体×列全体を切り出すのですから、元の二次元配列の全てが切り出され？ます。
但し、元の二次元配列のインデックスがゼロから始まっていたとしても、切り出された配列（図５の右側）の行・列のインデックス番号は「１からスタート」します。元がゼロ始まりでは無く、例えば２始まりであったとしても、切り出し後は「１からスタート」です。
このインデックス番号は、図２以降で全て同じです。

アプリ実例

「1行1データの表を複数行1データとして印刷する」
「設備の稼働状態記録とデータ集計」
「複数の備品を同時予約可能な貸出台帳」

なお「複数の備品を同時予約可能な貸出台帳」では列の切り出しをしてるのですが、取得した行数により配列の次元数が変わるために「次元数をFor～Nextを使って一次元配列に揃える」作業をしています。但し今考えれば、Transposeで行列転換をしてから行切り出しをした方が良かったかもしれません。