Excelのデータをマクロで並び変えるSortメソッド、Sortオブジェクトのご紹介です。
ExcelにはVBAで並び変えする方法がいくつかあって、最初に紹介するSortメソッドは~2003までで主流な、古典的なやりかたです(普通に今でも使えます)。Rangeオブジェクトで範囲を指定し、その枠内で並べ替えします。
Sortメソッドの使い方
基本~優先列の指定
範囲.Sort(引数)
![sort1](https://sunagitsune.com/wp-content/uploads/2020/05/sort1.jpg)
![sort2](https://sunagitsune.com/wp-content/uploads/2020/05/sort2.jpg)
あとで見てわかりやすいよう、なるべく簡単に書きたいと思います。
![sort3](https://sunagitsune.com/wp-content/uploads/2020/05/sort3.jpg)
(公式ページだと省略可能になってるので、バージョンによってはいけるのかもしれませんが)
![sort4](https://sunagitsune.com/wp-content/uploads/2020/05/sort4.jpg)
![sort5](https://sunagitsune.com/wp-content/uploads/2020/05/sort5.jpg)
![sort6](https://sunagitsune.com/wp-content/uploads/2020/05/sort6.jpg)
Range("A1:B9").Sort Range("B1")
(A1~B9の表の中で、B列を優先して並べ替える)というような記述になります。B1はB9でもB1:B9でもいいです。![sort7](https://sunagitsune.com/wp-content/uploads/2020/05/sort7.jpg)
![sort8](https://sunagitsune.com/wp-content/uploads/2020/05/sort8.jpg)
![sort10](https://sunagitsune.com/wp-content/uploads/2020/05/sort10.jpg)
![sort11](https://sunagitsune.com/wp-content/uploads/2020/05/sort11.jpg)
複数の優先列(Key1~3)
![エクセル excel sort vba1](https://sunagitsune.com/wp-content/uploads/2020/05/55037b5902052858b9964d311777a8b7.png)
![sort14](https://sunagitsune.com/wp-content/uploads/2020/05/sort14.jpg)
他にも「Key2」「Key3」が指定でき、1から3の順に優先して並べ替えが行われます。
フィールド名を指定して書く場合、フィールド名:=値のような書き方をします。
試しに
Range("A1:C9").Sort key1:=Range("A1"), key2:=Range("C1")
を実行してみましょう。![エクセル excel sort vba4](https://sunagitsune.com/wp-content/uploads/2020/05/0125a6f6f13162a6d94d243ba9e24dde.png)
![エクセル excel sort vba5](https://sunagitsune.com/wp-content/uploads/2020/05/548c83e1881649193802ef1c78cab192.png)
![sort17](https://sunagitsune.com/wp-content/uploads/2020/05/sort17.jpg)
![エクセル excel sort vba3](https://sunagitsune.com/wp-content/uploads/2020/05/1bba861c6136f9c52d038b493661ca07.png)
昇順/降順の指定(Order1~3)
![sort19](https://sunagitsune.com/wp-content/uploads/2020/05/sort19.jpg)
一度フィールド名を消して、優先列の後にxlと打つと、ふたつ候補が表示されました。
![sort20](https://sunagitsune.com/wp-content/uploads/2020/05/sort20.jpg)
値として入力したxlAscendingは昇順を意味します。
![sort21](https://sunagitsune.com/wp-content/uploads/2020/05/sort21.jpg)
![sort22](https://sunagitsune.com/wp-content/uploads/2020/05/sort22-650x212.jpg)
![sort23](https://sunagitsune.com/wp-content/uploads/2020/05/sort23.jpg)
Range("A1:C9").Sort key1:=Range("A1"), order1:=xlDescending, key2:=Range("B1"), order2:=xlAscending
とし、A列を降順、B列を昇順で並べ替えてみます。![sort24](https://sunagitsune.com/wp-content/uploads/2020/05/sort24.jpg)
なお、Order(昇順/降順)は一度設定すると、変更しない限り次のSortでも同じ設定で実行されます。
昇順の場合も指定しておくのが無難です。
その他のSortメソッドの引数
とりあえず上までの内容を知ってれば大体対応できると思いますが、Sortメソッドには他にも大量に引数があります。
Key(優先列)およびOrder(昇順or降順)については書いたので、それ以外について順次加筆していきます。以下で紹介している引数は全て省略可能です。
範囲.Sort(Key1、 Order1、 Key2、 Type、 Order2、 Key3、 Order3、 Header、 OrderCustom、 MatchCase、 Orientation、 SortMethod、 DataOption1、 DataOption2、 DataOption3)
Type(ピボットテーブルにおける並べ替え方法の指定)
![st4](https://sunagitsune.com/wp-content/uploads/2020/05/st4-650x175.jpg)
説明によると値で並べ替えをする時は、VBAではtype:=xlSortValuesとなり、対してラベルで並べ替えを指定する時は、VBAではtype:=xlSortLabelsとなるそうです。
ふたつ合わせてXlSortType列挙型定数と呼ばれます。
![](https://sunagitsune.com/wp-content/uploads/2020/05/st3-650x150.jpg)
Header(見出しを並べ替え範囲に含めるか)
![st5](https://sunagitsune.com/wp-content/uploads/2020/05/st5-650x128.jpg)
Header:=xlGuessの場合、Excelが見た感じから見出しをソート範囲に含めるべきかどうかを判定します。
![st6](https://sunagitsune.com/wp-content/uploads/2020/05/st6-650x122.jpg)
![st7](https://sunagitsune.com/wp-content/uploads/2020/05/st7-650x120.jpg)
![st8](https://sunagitsune.com/wp-content/uploads/2020/05/st8-650x121.jpg)
今回はC列でソートしてますが、数字が大きいにも関わらず、一行目は見出しとして扱われるので元の位置に残ります。
![st9](https://sunagitsune.com/wp-content/uploads/2020/05/st9-650x122.jpg)
一度変更すると、省略してもその後のソートにも設定が引き継がれるのでご注意ください(2007以降)。
OrderCustom(ユーザー設定リストの適用)
通常の昇順/降順以外に、特殊な並び順を適用したい場合はOrderCustomで指定します。
![st10](https://sunagitsune.com/wp-content/uploads/2020/05/st10.jpg)
![st11](https://sunagitsune.com/wp-content/uploads/2020/05/st11-650x236.jpg)
![st12](https://sunagitsune.com/wp-content/uploads/2020/05/st12-650x358.jpg)
デフォルトで曜日とか、干支なんかが登録されています。
![st13](https://sunagitsune.com/wp-content/uploads/2020/05/st13.jpg)
![st14](https://sunagitsune.com/wp-content/uploads/2020/05/st14.jpg)
![st15](https://sunagitsune.com/wp-content/uploads/2020/05/st15-650x361.jpg)
今回使うリストは上から数えていくと、
![st16](https://sunagitsune.com/wp-content/uploads/2020/05/st16-650x359.jpg)
![st17](https://sunagitsune.com/wp-content/uploads/2020/05/st17-650x196.jpg)
MatchCase(大文字小文字の区別)
![st18](https://sunagitsune.com/wp-content/uploads/2020/05/st18.jpg)
![st19](https://sunagitsune.com/wp-content/uploads/2020/05/st19.jpg)
![st20](https://sunagitsune.com/wp-content/uploads/2020/05/st20.jpg)
![st22](https://sunagitsune.com/wp-content/uploads/2020/05/st22-650x234.jpg)
![st21](https://sunagitsune.com/wp-content/uploads/2020/05/st21.jpg)
デフォルトの値はFalseです(確認した記事)。
そうそう変更しない引数だと思いますが、一度変更すると、省略してもその後のソートにも設定が引き継がれます(2007以降)。
Orientation(横方向に並べ替え)
![st23](https://sunagitsune.com/wp-content/uploads/2020/05/st23-650x144.jpg)
![st24](https://sunagitsune.com/wp-content/uploads/2020/05/st24.jpg)
![st25](https://sunagitsune.com/wp-content/uploads/2020/05/st25.jpg)
![st28](https://sunagitsune.com/wp-content/uploads/2020/05/st28.jpg)
このふたつはどちらも同じ意味なので、好きなほうを使ってOKです。
![st27](https://sunagitsune.com/wp-content/uploads/2020/05/st27-650x97.jpg)
![st29](https://sunagitsune.com/wp-content/uploads/2020/05/st29.jpg)
このふたつも同じ意味です。
![st26](https://sunagitsune.com/wp-content/uploads/2020/05/st26.jpg)
なお、この引数も変更結果が省略しても引き継がれます(2007以降)。
SortMethod(ふりがなを使うかどうか)
![st30](https://sunagitsune.com/wp-content/uploads/2020/05/st30-650x153.jpg)
![st31](https://sunagitsune.com/wp-content/uploads/2020/05/st31-650x173.jpg)
SortMethodも省略すると次回に引き継がれます(2007以降)。
DataOption1~3(テキストを数値データとして並べ替えるか)
![st32](https://sunagitsune.com/wp-content/uploads/2020/05/st32-650x134.jpg)
値はXlSortTextAsNumbersと、XlSortNormalの二種類です(XlSortDataOption列挙型定数)。規定値はNormalのほうです。
![st33](https://sunagitsune.com/wp-content/uploads/2020/05/st33-650x122.jpg)
そういうことをするのがXlSortTextAsNumbersで、
![st34](https://sunagitsune.com/wp-content/uploads/2020/05/st34-650x165.jpg)
Sortオブジェクトの使い方
続いて、2007以降に追加されたSortオブジェクトの使い方です。
おおまかなイメージとしては、Sortメソッドが範囲.並べ替え 色々設定という書き方だったのに対し、Sortオブジェクトでは範囲の指定をまず行い、その後で指定した範囲に色々設定しながら実行という二段階の構成になっています。
Sortオブジェクトの取得
![st35](https://sunagitsune.com/wp-content/uploads/2020/05/st35.jpg)
![st36](https://sunagitsune.com/wp-content/uploads/2020/05/st36.jpg)
そしてWorkSheet.Sortはまとめて「ワークシートの並べ替え機能」という対象となり、これをSortオブジェクトと呼んでいます。
つまりSortオブジェクト=Sortプロパティのくっついた別のオブジェクトです。
ソートの実行(Apply)
![st38](https://sunagitsune.com/wp-content/uploads/2020/05/st38.jpg)
ただしこの状態だと今いるワークシートをソートするとしか命令してないので、特に何も起きません。もっと詳細にソートする範囲などを指定していく必要があります。
ソート範囲の指定(SetRange)
![st39](https://sunagitsune.com/wp-content/uploads/2020/05/st39.jpg)
ただし、これを実行してもまだダメです。Sortメソッド同様に、Keyを指定してやる必要があります。
ソートの優先順の指定(SortFields.Add、Key)
![st40](https://sunagitsune.com/wp-content/uploads/2020/05/st40.jpg)
SortFieldsコレクションに対してAddメソッドを使うことで、SortオブジェクトにSortFieldオブジェクトを追加することができます。
細かいことは抜きにしても、とりあえず定型文として知ってれば使えます。
![st41](https://sunagitsune.com/wp-content/uploads/2020/05/st41.jpg)
![st42](https://sunagitsune.com/wp-content/uploads/2020/05/st42.jpg)
SortFields.Clearについて
![st45](https://sunagitsune.com/wp-content/uploads/2020/05/st45.jpg)
字面からなんとなくわかる通り、SortFieldsコレクションをクリアしています。AddしたSortFieldオブジェクトは並べ替え実行後も保存されるため、後からAddしたSortFieldオブジェクトはその後に追加され、優先順位が低くなります(よって同じ引数を操作した場合、前回の設定で実行されます)。それを避けるための命令です。
というわけで、まずSortFields.Clearして、SetRangeで範囲を指定し、SortFields.Add Key:=で優先列の指定、Applyでソートの実行……という形がSortオブジェクトの実行最小単位になるかと思います。
※ワークシート全部ソートしていいなら、SetRangeなくても動きます。
' vba Sortオブジェクト基本形
Dim sorttest As Worksheet ' ソート対象のオブジェクトを指定
Set sorttest = ActiveSheet
With sorttest.Sort ' WorkSheetオブジェクトにSortをくっつける=Sortオブジェクト
.SortFields.Clear' 一度SortFieldsをまっさらにする
.SortFields.Add Key:=Range("A1") ' ソート優先順指定(上に書いたものほど優先)
.SortFields.Add Key:=Range("B1") ' ソート優先順指定(Key2相当)
.SetRange Range("A1:B5") ' ソート範囲指定
.Apply ' ソート実行
End With
その他のSortオブジェクトのプロパティ
Sortメソッドと共通するものが多いです。Sortオブジェクト(公式)のメソッドはApply(ソートの実行)とSetRange(範囲指定)、プロパティはSortFields、SortMethod、Header、MatchCase、Orientationなどがあり、さらにSortFieldsプロパティを付けた=SortFieldオブジェクト(公式)にAddなどのメソッド、プロパティがあるイメージです。
見出しを並べ替えに含むか(Header)
![st46](https://sunagitsune.com/wp-content/uploads/2020/05/st46.jpg)
今回はプロパティなので、=の後に値を入力します。プロパティは値を保持するため、省略すると前回の設定になります(規定値:XlNo)。
Sortメソッドの引数で変更した場合も、2007以降では挙動としてSortオブジェクトのHeaderプロパティを変更しているため、値が保持されています。つまりSortオブジェクトのプロパティにあるものが、Sortメソッドの引数の中で値が保持されるものです。
アルファベットの大文字小文字を分別するか(MatchCase)
![st47](https://sunagitsune.com/wp-content/uploads/2020/05/st47.jpg)
プロパティなので、省略すると前回の設定になります(規定値:False)。
縦横どちらにソートするか(Orientation)
![st48](https://sunagitsune.com/wp-content/uploads/2020/05/st48.jpg)
プロパティなので、省略すると前回の設定になります(規定値:xlSortColumns)。
並べ替えにふりがなを使うか(SortMethod)
![st49](https://sunagitsune.com/wp-content/uploads/2020/05/st49.jpg)
xlPinYinでふりがなに沿って並べ替え、xlStrokeで文字コードに沿って並べ変えとなります。
プロパティなので、省略すると前回の設定になります(規定値:xlPinYin)。
その他のSortFields.Addメソッドの引数(他)
SortFieldsは色んな種類のSortField(並べ替えフィールド)の集まり(コレクション)です。Sortオブジェクト.SortFieldsとすることでSortFieldsオブジェクトという「対象」を取得し、SortFieldsオブジェクトの中にその構成要素であるSortFieldを追加(Add)していくことができます。
ひらたく言えば並べ替え設定の追加です。先述の通り形として覚えてれば問題なく使えます。
Clearする前提なのでいちいち書きませんが、追加したSortFieldオブジェクトは並べ替え後も残るので、下記ひととおり何もしなければ前回の設定が残ります。
昇順/降順(Order)
![st43](https://sunagitsune.com/wp-content/uploads/2020/05/st43.jpg)
Sortメソッドの時と同様、Keyと一緒にOrderで指定します(例ではオブジェクトSort.SortFields.Add Key:=Range(“A1”), Order:=xlAscending)。
xlAscending=昇順で並べ替えます。
![st44](https://sunagitsune.com/wp-content/uploads/2020/05/st44.jpg)
ユーザー定義の並べ替え(CustomOrder)
![st53](https://sunagitsune.com/wp-content/uploads/2020/05/st53-650x360.jpg)
画像の曜日指定をしたいとします。上から数えて2番目です。
![st51](https://sunagitsune.com/wp-content/uploads/2020/05/st51-650x207.jpg)
![st52](https://sunagitsune.com/wp-content/uploads/2020/05/st52.jpg)
CustomとOrderが前後逆になり、数字が-1されます(「新しいリスト」がカウントされなくなる)。
![st54](https://sunagitsune.com/wp-content/uploads/2020/05/st54.jpg)
![st55](https://sunagitsune.com/wp-content/uploads/2020/05/st55.jpg)
テキストを数値データで並べ替え(DataOption)
![st56](https://sunagitsune.com/wp-content/uploads/2020/05/st56-650x263.jpg)
XlSortNormal(規定値)では文字列「001」と数字「1」は別のカテゴリとして並び変えされ、XlSortTextAsNumberでは文字列設定の数値も数値データとして並べ替えます。
色やアイコン基準で並べ替え(SortOn)
![st58](https://sunagitsune.com/wp-content/uploads/2020/05/st58.jpg)
引数SortOnのあとにxlSortOn列挙型定数で指定します。規定値がxlSortOnValuesとなり、値での並べ替えを意味します。
![st59](https://sunagitsune.com/wp-content/uploads/2020/05/st59.jpg)
![st60](https://sunagitsune.com/wp-content/uploads/2020/05/st60.jpg)
![st61](https://sunagitsune.com/wp-content/uploads/2020/05/st61-650x365.jpg)
SortOnの色優先度設定(SortOnValueプロパティ)
SortOnValueはSortFieldオブジェクトのプロパティで、ここで色の優先度の指定が可能です。
![st62](https://sunagitsune.com/wp-content/uploads/2020/05/st62.jpg)
![st63](https://sunagitsune.com/wp-content/uploads/2020/05/st63.jpg)
Keyでは列の優先度を指定していましたが、ここでは色の優先度を指定している形です。
![st64](https://sunagitsune.com/wp-content/uploads/2020/05/st64-650x380.jpg)
![st65](https://sunagitsune.com/wp-content/uploads/2020/05/st65.jpg)
![st66](https://sunagitsune.com/wp-content/uploads/2020/05/st66-650x325.jpg)
![st67](https://sunagitsune.com/wp-content/uploads/2020/05/st67-650x325.jpg)
![st68](https://sunagitsune.com/wp-content/uploads/2020/05/st68-650x365.jpg)
' vba 色で並び変え
Dim sorttest As Worksheet
Set sorttest = ActiveSheet
With sorttest.Sort
.SortFields.Clear
' 薄い緑で塗ったセルが上に来るように並び変え(優先)
.SortFields.Add(Key:=Range("A1"), Order:=xlAscending, _
SortOn:=xlSortOnCellColor).SortOnValue.Color = RGB(146, 208, 80)
' フォントが赤いセルが下に来るように並び変え(2番目に優先)
.SortFields.Add(Key:=Range("A1"), Order:=xlDescending, _
SortOn:=xlSortOnFontColor).SortOnValue.Color = rgbRed
.SetRange Range("A1:A16")
.Apply
End With
SortOnのアイコン優先度設定(SetIconメソッド)
![st69](https://sunagitsune.com/wp-content/uploads/2020/05/st69.jpg)
![st70](https://sunagitsune.com/wp-content/uploads/2020/05/st70-650x597.jpg)
![st71](https://sunagitsune.com/wp-content/uploads/2020/05/st71.jpg)
![st72](https://sunagitsune.com/wp-content/uploads/2020/05/st72.jpg)
![st73](https://sunagitsune.com/wp-content/uploads/2020/05/st73-650x322.jpg)
IconSets(1).Item(2)で実行すると、表のように横の矢印を優先する形で並び返されます。
![st74](https://sunagitsune.com/wp-content/uploads/2020/05/st74-650x597.jpg)
![st75](https://sunagitsune.com/wp-content/uploads/2020/05/st75-650x342.jpg)
![st76](https://sunagitsune.com/wp-content/uploads/2020/05/st76.jpg)
' vba アイコンで並び変え
Dim sorttest As Worksheet
Set sorttest = ActiveSheet
With sorttest.Sort
.SortFields.Clear
' アイコンリストの1番上のセットのうち、2番目のアイコンを優先して並び変え
.SortFields.Add(Key:=Range("A1"), Order:=xlAscending, _
SortOn:=xlSortOnIcon).SetIcon Icon:=ActiveWorkbook.IconSets(1).Item(2)
.SetRange Range("A1:A16")
.Apply
End With
![](https://sunagitsune.com/wp-content/uploads/2021/02/shuffleboard-5945232_1280-160x90.jpg)
![](https://sunagitsune.com/wp-content/uploads/2018/12/mathematics-1509559_1280-160x90.jpg)
コメント