Excel VBA データを並べ替える

• オブジェクト（必須）
  並べ替えるセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。
  単一のセルを指定した場合は、そのセルを含む「アクティブセル領域」が対象になります。
• Key1【ｷｰﾜﾝ】（省略可）
  最優先で並べ替える列を指定します。
• Order1【ｵｰﾀﾞｰﾜﾝ】
  引数Key1で指定した列の並べ替え順をXlSortOder列挙型の定数で指定します。

  XlSortOder列挙型の定数

  定数	値	内容
  xlAscending	1	昇順で並べ替えます。（既定値）
  xlDescending	2	降順で並べ替えます。

• Key2【ｷｰﾂｩ】（省略可）
  2番目に優先して並べ替える列を指定します。
• Type【ﾀｲﾌﾟ】（省略可）
  ピボットテーブルレポートを並べ替える場合に使用します。
  XlSortType列挙型の定数で指定します。

  XlSortType列挙型の定数

  定数	内容
  xlSortLabels	ラベルを基準にしてを並べ替えます。
  xlSortValues	値を基準にして並べ替えます。

• Order2【ｵｰﾀﾞｰﾂｩ】（省略可）
  引数Key2で指定した列の並べ替え順をXlSortOder列挙型の定数で指定します。
• Key3【ｷｰｽﾘｰ】（省略可）
  3番目に優先して並べ替える列を指定します。
• Order3【ｵｰﾀﾞｰｽﾘｰ】（省略可）
  引数Key3で指定した列の並べ替え順をXlSortOder列挙型の定数で指定します。
• Header【ﾍｯﾀﾞｰ】（省略可）
  指定範囲の1行目を見出しとするかどうかをXlYesNoGuess列挙型の定数で指定します。

  XlYesNoGuess列挙型の定数

  定数	値	内容
  xlGuess	0	見出しがあるかどうか Excel が判断します。
  xlYes	1	1行目を見出しとして 1行目を除いた指定範囲を並べ替えます。
  xlNo	2	1行目を見出しとせず 指定範囲全体を並べ替えます。（既定値）

• OrderCustom【ｵｰﾀﾞｰｶｽﾀﾑ】（省略可）
  ユーザー設定リストのリスト内の順番を整数で指定します。
• MatchCase【ﾏｯﾁｹｰｽ】（省略可）
  大文字と小文字を区別するかしないかを指定します。

  設定値	内容
  False	区別しない（既定値）
  True	区別する

• Orientation【ｵﾘｴﾝﾃｨｰｼｮﾝ】（省略可）
  並べ替えの単位をXlSortOrientation列挙型の定数で指定します。

  XlSortOrientation列挙型の定数

  定数	値	内容
  xlSortColumns	1	列単位で並べ替えます。
  xlSortRows	2	行単位で並べ替えます。

• SortMethod【ｿｰﾄﾒｿｯﾄﾞ】（省略可）
  日本語の並べ替えの方法をXlSortMethod列挙型の定数で指定します。

  XlSortMethod列挙型の定数

  定数	値	内容
  xlPinYin	1	ふりがな順に並べ替え（既定値）
  xlStroke	2	各文字の総画数で並べ替え

• DataOption1【ﾃﾞｰﾀｵﾌﾟｼｮﾝﾜﾝ】（省略可）
  引数Key1で指定した列のテキストの並べ替え方法をXlSortDataOption列挙型の定数で指定します。
• DataOption2【ﾃﾞｰﾀｵﾌﾟｼｮﾝﾂｩ】（省略可）
  引数Key2で指定した列のテキストの並べ替え方法をXlSortDataOption列挙型の定数で指定します。
• DataOption3【ﾃﾞｰﾀｵﾌﾟｼｮﾝｽﾘｰ】（省略可）
  引数Key3で指定した列のテキストの並べ替え方法をXlSortDataOption列挙型の定数で指定します。

  XlSortDataOption列挙型の定数

  定数	値	内容
  xlSortNormal（既定値）	0	数値データとテキスト データを別々に並べ替えます。
  xlSortTextAsNumbers	1	テキストを数値データとして並べ替えます。

Sub 並べ替え()
With Range("A1").CurrentRegion
  .Sort key1:=.Columns(4), order1:=xlAscending, Header:=xlYes
  .Sort key1:=.Columns(3), order1:=xlAscending, Header:=xlYes
  .Sort key1:=.Columns(2), order1:=xlAscending, Header:=xlYes
  .Sort key1:=.Columns(1), order1:=xlAscending, Header:=xlYes
End With
End Sub

3行目～6行目
【.Sort key1:=.Columns(4), order1:=xlAscending, Header:=xlYes
.Sort key1:=.Columns(3), order1:=xlAscending, Header:=xlYes
.Sort key1:=.Columns(2), order1:=xlAscending, Header:=xlYes
.Sort key1:=.Columns(1), order1:=xlAscending, Header:=xlYes】
Sortメソッドで初めに4列目を昇順で並べ替えをし次に3列目、2列目とし最終的に1列目を昇順で並べ替えを行い1列目を最優先ので昇順の並べ替えを実行します。

• オブジェクト（必須）
  WorkSheetオブジェクトを指定します。
  表がテーブルに変換されている場合はListObjectオブジェクトまたはQueryTableオブジェクトを指定します。

• オブジェクト（必須）
  SortFields【ｿｰﾄﾌｨｰﾙｽﾞ】コレクションを指定します。SortFields【ｿｰﾄﾌｨｰﾙｽﾞ】コレクションはSort【ｿｰﾄ】オブジェクトのSortFields【ｿｰﾄﾌｨｰﾙｽﾞ】プロパティで取得します。
• Key【ｷｰ】（必須）
  並べ替えの基準とするフィールド（列）のセルまたは列をRangeオブジェクトで指定します。
• SortOn【ｿｰﾄｵﾝ】（省略可）
  並べ替えの基準をXlSortOn列挙型の定数で指定します。

  XlSortOn列挙型の定数

  定数	値	内容
  SortOnValues	0	値（既定値）
  SortOnCellColor	1	セルの色
  SortOnFontColor	2	フォントの色
  SortOnIcon	3	アイコン

• Order【ｵｰﾀﾞｰ】（省略可）
  並べ替えの順序をXlSortOrder列挙型の定数で指定します。

  XlSortOder列挙型の定数

  定数	値	内容
  xlAscending	1	昇順で並べ替えます。（既定値）
  xlDescending	2	降順で並べ替えます。

• CustomOrder【ｶｽﾀﾑｵｰﾀﾞｰ】（省略可）
  ユーザー定義の並べ替えの順番を文字列で指定するか「ユーザー設定リスト」ダイアログボックスのリスト上からの順番を数値で指定します。
• DataOption【ﾃﾞｰﾀｵﾌﾟｼｮﾝ】（省略可）
  テキストを並べ替える方法をXlSortDataOption列挙型の定数で指定します。

  XlSortDataOption列挙型の定数

  定数	値	内容
  xlSortNormal（既定値）	0	数値データとテキスト データを別々に並べ替えます。
  xlSortTextAsNumbers	1	テキストを数値データとして並べ替えます。

Sub 並べ替え2()
Dim myrange As Range
Set myrange = Range("A1").CurrentRegion
With ActiveSheet. Sort
 With .SortFields
      .Clear
      .Add myrange.Columns(1), xlSortOnValues, xlAscending
      .Add myrange.Columns(2), xlSortOnValues, xlAscending
      .Add myrange.Columns(3), xlSortOnValues, xlAscending
      .Add myrange.Columns(4), xlSortOnValues, xlAscending
  End With
 .SetRange myrange
 .Header = xlYes
 .Apply
End With
End Sub

3行目【　Set myrange = Range(“A1”).CurrentRegion　】
RangeオブジェクトのCurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティを使用してA1セルからはじまる表範囲を参照してオブジェクト変数「myrange」にSet【ｾｯﾄ】キーワードを使用して代入します。

4行目【　With ActiveSheet.Sort　】
Sort【ｿｰﾄ】プロパティを使用してSort【ｿｰﾄ】オブジェクトを取得し、Withステートメントで指定します。

5行目【 With .SortFields　】

Sort【ｿｰﾄ】オブジェクトのSortFields【ｿｰﾄﾌｨｰﾙｽﾞ】プロパティを使用してSortFields【ｿｰﾄﾌｨｰﾙｽﾞ】コレクションを取得して、Withステートメントで指定します。

6行目【　.Clear　】
SortFields【ｿｰﾄﾌｨｰﾙｽﾞ】コレクションのClear(ｸﾘｱ)メソッドで前回の並べ替えの設定をクリアします。

7行目～10行目
【.Add myrange.Columns(1), xlSortOnValues, xlAscending
.Add myrange.Columns(2), xlSortOnValues, xlAscending
.Add myrange.Columns(3), xlSortOnValues, xlAscending
.Add myrange.Columns(4), xlSortOnValues, xlAscending】
SortFieldsコレクションのAddメソッドで並び替え対象を指定します。Sortメソッドと違い並び替えの優先順位が高い順から宣言します。

12行目【.SetRange myrange】
Sort【ｿｰﾄ】オブジェクトのSetRange【ｾｯﾄﾚﾝｼﾞ】メソッドに並べ替えるセル範囲が格納されているオブジェクト変数「myrange」を指定します。

13行目【.Header = xlYes】
Sort【ｿｰﾄ】オブジェクトのHeader【ﾍｯﾀﾞｰ】プロパティに1行目を見出し行と表すxlYesを設定します。

14行目【 .Apply】
Sort【ｿｰﾄ】オブジェクトのApply【ｱﾌﾟﾘ】メソッドで並べ替えを実行します。