列の「並び替え」

列の「並び替え」
ってどんな場合に使うのかわからないけれども
とりあえず
1っ回くらいやっておこう。

以前の記事「並び替えをする 」で使った
「並び替え」のテンプレートの引数を変えるだけです。

Orientation:=xlTopToBottom

の箇所を

Orientation:=xlSortRows

にすると列の「並び替え」ができます。

「Orientation:=xlTopToBottom」についてですが
マクロ自動記録で記録したコードは
このようになっていたので
そのように以前の記事で使ったのですが、

Orientation:=xlSortColumns

でも同じように
行の「並び替え」を指定できるようです。

xlSortRowsなんていうと
RowsのSortで
行の並び替えをしそうですが、
Rows方向(=Orientation)の並び替え
= 水平方向の並び替え
= 列の並び替えです。

xlSortColumnsも同様に
Columns方向の並び替え
= 垂直方向の並び替え
= 行の並び替えです。

行のタイトル順に
列を「並び替える」シチュエーションしか
思い浮かばないので
それをしてみます。

コードはこちら

Sub macro110226a()
'列の並び替え
'１行目を基準に昇順

    Range("A1:G11").Sort _
        Key1:=Range("A1"), Order1:=xlDescending, _
        Header:=xlNo, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlSortRows, _
        SortMethod:=xlPinYin
       
End Sub

実行前のシート：

実行後のシート：

手動での列の「並び替え」は、
「並び替え」のダイアログの左下の[オプション]ボタンを押せば
並び替えの方向を選択できます。