【Excel VBA】SORTを使って、並び替えを行う方法

皆さんこんにちは、エンジニアのIMMRです。

今回は、プログラム開発でよく使われるSORTつまり並び替えについて説明していきます。

使用するブックは下記のとおりです。

図１　サンプルブック

上記のサンプル図のように商品名と価格が記載されている表があります。

この図に対して、B列に記載してある価格をSORTしていきたいと思います。

１．SORTの方法について

SORTを指定する場合以下、４点の設定が必要になります。

①並び替えを行う範囲

②並び替えを行うキー

③並び替えの方法（昇順か降順か）

④最初の行について（ヘッダーが含まれているか）

です。

①並び替えを行う範囲

どこの範囲の並び替えを行うか設定します。そして、範囲の設定後にSortを記載します。

記載例

Range(範囲).Sort 

②並び替えを行うキー

並び替えを行うキーすなわち、並び替えを行うフィールドを設定します。

設定はRangeオブジェクトを使用します。

そして、一つ目の並び替えキーとして、key1:=並び替えキー　と記載します。
２つ目の場合、key2:=並び替えキーとします。

記載例

Key1:=Range("B1")

図１　サンプルブックにおいて、並び替えキーは、B列になります。

そのためここではB1とします。

③並び替えの方法（昇順か降順か）

order1:=を付けてから

並び替えの方法（順序）を設定します。

昇順：xlAscending

降順：xlDescending

記載例　※ここでは昇順を設定します。

order1:=xlAscending

④最初の行について（ヘッダーが含まれているか）

これは、その名のとおり、最初の行にヘッダー情報が含まれているか、最初の行も対象にするかを設定します。

一番上の行がヘッダーなら並び替え対象外になりますよね。

しかし、データによってはヘッダーとかがなく、１番上の行も並び替え対象になるものもあります。

そのため、一番上が並び替えの対象になるか、ならないかは処理の内容によって異なってくるのです。

Header:=・・・を付けてから「xlYes」を指定すると、最初の行は並び替えの対象外になります。

Header:=・・・を付けなくてもエラーにはなりません。そして、最初の行も並び替えの対象になります。

記載例　※最初の行は並び替えの対象外としています。

Header:=xlYes

２．SORTの方法（サンプルプログラム）

では、上記であげた記載方法を結合して、サンプルプログラムを作成していきます。

基本、上記であげた

①並び替えを行う範囲

②並び替えを行うキー

③昇順か降順か

④最初の行にヘッダーが含まれているか

を”，”を使って結合していきます。

使用するブックは図１であげたサンプルブックです。

サンプルプログラム

Sub test()

    Range("A1:B12").Sort Key1:=Range("B1"), order1:=xlAscending, Header:=xlYes

End Sub

範囲：（A1～B12)

SORTキー：B列のキー（B1）

並び替え方法：　xlAscending（昇順）

最初の行にヘッダーが含まれている：Header:=xlYes

という内容です。

３．SORTの方法（サンプルプログラム）の実行

図１　サンプルブックに対して、上記プログラムを実行した結果です。

図２　実行結果

きちんとB列の価格に対して昇順で並び替えを実施していることが確認できます。

これによりSORTを使って、並び替えを行うことが出来ました。