【マクロモジュール】配列を逆さにする
'------------------------------------------------------------------'概要=配列を逆さにする'引数=逆さにしたい配列'戻値=逆さになった配列'引数の型=バリアント'戻値の型=バリアント'その他=optionbaseは0の前提'------------------------------------------------------------------Function upside_variant(in_variant As Variant) As Variant'--------------------------------------------------------'元の配列の行・列をカウントする変数を作成'--------------------------------------------------------Dim cnt_row As LongDim cnt_column As Long'--------------------------------------------------------'元の配列の行・列数を確認'--------------------------------------------------------cnt_row = UBound(in_variant, 1)cnt_column = UBound(in_variant, 2)'--------------------------------------------------------'逆さにしたもの配列を入れる配列の行(upside_row)と列(upside_column)を指定'--------------------------------------------------------Dim upside_rowDim upside_columnupside_row = cnt_columnupside_column = cnt_row'--------------------------------------------------------'逆さにした配列を格納する配列を生成'--------------------------------------------------------ReDim upside_variant_inner(upside_row, upside_column) As String'--------------------------------------------------------'逆さにした配列に値を格納'--------------------------------------------------------For i = 0 To upside_columnFor i2 = 0 To upside_rowupside_variant_inner(i2, i) = in_variant(i, i2)NextNext'--------------------------------------------------------'upside_variantに格納'--------------------------------------------------------upside_variant = upside_variant_innerEnd Function