F0000027_配列を指定した添え字の昇順で並び替える

ExcelVBA（マクロ）で配列を並び替える方法をしらべると「Sort」メソッドを使いましょうという記事が出てきます。たしかに、ある一定までの件数を処理する分は十分な機能です。しかし、Excelという制約上100万行を超える配列の処理はできません。その限界を突破するために作成した関数です。

■引数１：target_array
　並べ替えを実施する配列を指定します。2次元まで対応。

■引数２：key_index
　並べ替えのキーに使用する添え字を指定します。1次元配列の場合は指定不要。2次元配列の場合、2次元目の添え字を指定します。

■引数３：header_sort
　2次元配列を並び替える場合に、最初の行を並び替えるか指定します。True　・・・　最初の行を並び替える　False　・・・　最初の行を並び替えない　省略した場合、Trueを指定したとみなします。

■引数４：var_type_code
　ExcelVBAで標準で使える型指定用の定数を渡します。対応しているのは、vbString、vbVariant、vbLong、vbDouble、vbDateです。戻り値の配列を指定した型へ変換します。省略した場合、もしくは無効な値を指定した場合、vbVariatを指定したとみなします。

並び替え後の配列を返します。

この関数は降順並び替えに対応していません。別途並び順を反転させる関数などを使用してください。

サンプルコードを実行すると、イミディエイトウィンドウに並び替え後の配列の中身を書き出します。配列に格納する値を変更して挙動を確認してみましょう。