並べ替え（Sort メソッド）

2015/08/25 2015/08/26

Sort メソッド

任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条件を指定することができ、並べ替えのキーワードは最大３つまで指定することができます。
Excel 2007 以降のバージョンでは、Sort メソッド に加えて、新しく Sort オブジェクト が、使用できるようになりました。セルの色やフォントの色で、並べ替えができるなど、機能が拡張されています。 ⇒ 並べ替え（Sort オブジェクト）を参照

【書式】

object.Sort ( [ key1, order1, key2, type, order2, key3, order3, header, ordercustom, matchcase, orientation, sortmethod, dataoption1, dataoption2, dataoption3 ] )

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
key1,key2,key3 ・・・並べ替えキーのフィールドを Range オブジェクト（セル）、または文字列で指定します。
order1,order2,order3 ・・・ key1～3 で指定した値の並び替え順序を XlSortOrder 列挙型 で指定します。

定数値内容

xlAscending 1 昇順で並べ替え（既定値）

xlDescending 2 降順で並べ替え
type ・・・並べ替える要素を指定します。ピボットテーブルの並べ替えの時に使用します。
header ・・・先頭行を見出しとして使用するかどうかを指定します。XlYesNoGuess 列挙型

定数値内容

xlGuess 0 Excel が自動的に設定

xlYes 1 見出しとして使用

xlNo 2 見出しとして使用しない（範囲全体が並べ替えの対象）既定値
ordercustom ・・・ユーザー設定の並べ替え順のリスト内の番号を示す、1 から始まる整数を指定します。
matchcase ・・・大文字と小文字を区別する場合は、True、しない場合は False を指定します。ピボットテーブルの並べ替えには使用できません。
orientation ・・・並べ替えの方向を XlSortOrientation 列挙型 で指定。

定数値内容

xlSortColumns 1 行単位で並べ替え（上から下）既定値

xlSortRows 2 列単位で並べ替え（左から右）
sortmethod ・・・並べ替えの方法を XlSortMethod 列挙型 で指定します。

定数値内容

xlPinYin 1 ふりがなを使って並べ替え（既定値）

xlStroke 2 ふりがなを使わずに並べ替え
DataOption1,DataOption2,DataOption3 ・・・ Key1～3 で指定した範囲でテキストを並べ替える方法を指定します。ピボットテーブルの並べ替えは使用できません。XlSortDataOption 列挙型

定数値内容

xlSortNormal 0 数値とテキストを別々に並べ替え（既定値）

xlSortTextAsNumbers 1 テキストを数値データとして並べ替え

Sort メソッド使用例

サンプルVBAソース

　
Sub Sample01_Sort()

    Dim SortRng As Range
    
    Set SortRng = Range("B3").CurrentRegion
    
    'ソートメソッドの実行
    SortRng.Sort key1:="合計", _
                 order1:=xlDescending, _
                 key2:="登録番号", _
                 order2:=xlAscending, _
                 Header:=xlYes, _
                 MatchCase:=False, _
                 Orientation:=xlSortColumns, _
                 SortMethod:=xlStroke

    
    'セルの背景色
    Dim i As Long
    With SortRng
        For i = 2 To .Rows.Count
            If i Mod 2 = 0 Then
                .Rows(i).Interior.ColorIndex = 19
            Else
                .Rows(i).Interior.ColorIndex = 2
            End If
        Next i
    End With
        

End Sub

Sub Sample01_Sort()

Dim SortRng As Range

Set SortRng = Range("B3").CurrentRegion

'ソートメソッドの実行

SortRng.Sort key1:="合計", _

order1:=xlDescending, _

key2:="登録番号", _

order2:=xlAscending, _

Header:=xlYes, _

MatchCase:=False, _

Orientation:=xlSortColumns, _

SortMethod:=xlStroke

'セルの背景色

Dim i As Long

With SortRng

For i = 2 To .Rows.Count

If i Mod 2 = 0 Then

.Rows(i).Interior.ColorIndex = 19

Else

.Rows(i).Interior.ColorIndex = 2

End If

Next i

End With

End Sub

Sort メソッド使用例実行結果

サンプルVBAソース実行前

実行後

Sort メソッド（列単位の並べ替え）使用例

サンプルVBAソース

　
Sub Sample02_Sort()

    Dim SortRng As Range
    
    Set SortRng = Range("B3").CurrentRegion
    
    'ユーザー設定の並べ替えリストを追加
    Application.AddCustomList _
        ListArray:=Array("登録番号", "氏名", "社会", "理科", "国語", "数学", "英語", "合計", "平均")
    
    
    'ソートメソッドの実行（列単位の並べ替え）
    SortRng.Sort key1:=Range("B3"), _
                 order1:=xlAscending, _
                 Header:=xlNo, _
                 ordercustom:=Application.CustomListCount + 1, _
                 MatchCase:=False, _
                 Orientation:=xlSortRows, _
                 SortMethod:=xlStroke
    
    
    'セルの背景色
    Dim i As Long
    With SortRng
        For i = 2 To .Rows.Count
            If i Mod 2 = 0 Then
                .Rows(i).Interior.ColorIndex = 19
            Else
                .Rows(i).Interior.ColorIndex = 2
            End If
        Next i
    End With
        

End Sub

Sub Sample02_Sort()

Dim SortRng As Range

Set SortRng = Range("B3").CurrentRegion

'ユーザー設定の並べ替えリストを追加

Application.AddCustomList _

ListArray:=Array("登録番号", "氏名", "社会", "理科", "国語", "数学", "英語", "合計", "平均")

'ソートメソッドの実行（列単位の並べ替え）

SortRng.Sort key1:=Range("B3"), _

order1:=xlAscending, _

Header:=xlNo, _

ordercustom:=Application.CustomListCount + 1, _

MatchCase:=False, _

Orientation:=xlSortRows, _

SortMethod:=xlStroke

'セルの背景色

Dim i As Long

With SortRng

For i = 2 To .Rows.Count

If i Mod 2 = 0 Then

.Rows(i).Interior.ColorIndex = 19

Else

.Rows(i).Interior.ColorIndex = 2

End If

Next i

End With

End Sub

Sort メソッド（列単位の並べ替え）使用例実行結果

サンプルVBAソース実行前

実行後

Sort メソッド（ピボットテーブル）使用例

サンプルVBAソース

　
Sub Sample03_Sort()

    Dim myRng As Range
    
    Set myRng = ActiveSheet.PivotTables.Item(1).PivotFields("登録番号").DataRange
    
    myRng.Sort order1:=xlDescending, Type:=xlSortLabels
        
End Sub

Sub Sample03_Sort()

Dim myRng As Range

Set myRng = ActiveSheet.PivotTables.Item(1).PivotFields("登録番号").DataRange

myRng.Sort order1:=xlDescending, Type:=xlSortLabels

End Sub

Sort メソッド（ピボットテーブル）使用例実行結果

サンプルVBAソース実行前

実行後

- セルの操作 Range オブジェクト, Sort メソッド, VBA基本, エクセルVBA, セルの操作, 任意のセル範囲内でソート

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: セル範囲内を検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: 対象のセルを直接参照しているセル全てを取得（DirectDependents プロパティ）

DirectDependents プロパティ DirectDependents …

: 入力規則（リストで制限する）Validation.Add メソッド

ドロップダウンリストで入力値を制限 Validation.Add メソッド（また …

: ２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

Union メソッド Union メソッドは、２つ以上のセル範囲を１つにまとめて …

: 数式を非表示にする（FormulaHidden プロパティ）

FormulaHidden プロパティ数式が入力されたセルを選択するとその数式 …

: セルを参照する（Cells プロパティ）

Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を …

: オートフィルタ（AutoFilter メソッド）

AutoFilter メソッド【書式】 object.AutoFilter ( …

: 直前のセル・直後のセルを参照する（Previous プロパティ・Next プロパティ）

Previous プロパティ・Next プロパティ Previous プロパティ …

: セルをアクティブにする・セルを選択する（Activate, Select）

セルをアクティブにする・選択する【書式：セルをアクティブにする】 object …

: オートフィルタ（日付による抽出）AutoFilter メソッド

日付で、抽出する（AutoFilter メソッド）【書式】 object.Au …

PREV: 次の検索（FindNext メソッド,FindPrevious メソッド）
NEXT: 並べ替え（Sort オブジェクト, SortFields コレクション）

並べ替え（Sort メソッド）

Sort メソッド

引数・戻り値

Sort メソッド使用例

サンプルVBAソース

Sort メソッド使用例実行結果

Sort メソッド（列単位の並べ替え）使用例

サンプルVBAソース

Sort メソッド（列単位の並べ替え）使用例実行結果

Sort メソッド（ピボットテーブル）使用例

サンプルVBAソース

Sort メソッド（ピボットテーブル）使用例実行結果

Message コメントをキャンセル

関連記事

セル範囲内を検索（Find メソッド）

対象のセルを直接参照しているセル全てを取得（DirectDependents プロパティ）

入力規則（リストで制限する）Validation.Add メソッド

２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

数式を非表示にする（FormulaHidden プロパティ）

セルを参照する（Cells プロパティ）

オートフィルタ（AutoFilter メソッド）

直前のセル・直後のセルを参照する（Previous プロパティ・Next プロパティ）

セルをアクティブにする・セルを選択する（Activate, Select）

オートフィルタ（日付による抽出）AutoFilter メソッド

SQL文を実行する(ADO)Execute メソッド

並べ替え（Sort オブジェクト, SortFields コレクション）

ブックのコピーを保存（SaveCopyAs メソッド）

テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

データベース（Oracle）に接続する（OLE DB を使用）

フィルタ解除して全データを表示（ShowAllData メソッド）

四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

クエリにパラメータを渡して結果を取得する（ADO）Command オブジェクト・Execute メソッド

データベース（Oracle）に接続する（ODBC を使用）

列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

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

定数	値	内容
xlGuess	0	Excel が自動的に設定
xlYes	1	見出しとして使用
xlNo	2	見出しとして使用しない（範囲全体が並べ替えの対象）既定値

定数	値	内容
xlSortColumns	1	行単位で並べ替え（上から下）既定値
xlSortRows	2	列単位で並べ替え（左から右）

定数	値	内容
xlPinYin	1	ふりがなを使って並べ替え（既定値）
xlStroke	2	ふりがなを使わずに並べ替え

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

並べ替え（Sort メソッド）

Sort メソッド

引数・戻り値

Sort メソッド 使用例

サンプルVBAソース

Sort メソッド 使用例 実行結果

Sort メソッド（列単位の並べ替え） 使用例

サンプルVBAソース

Sort メソッド（列単位の並べ替え）使用例 実行結果

Sort メソッド（ピボットテーブル） 使用例

サンプルVBAソース

Sort メソッド（ピボットテーブル）使用例 実行結果

Message コメントをキャンセル

関連記事

Sort メソッド使用例

Sort メソッド使用例実行結果

Sort メソッド（列単位の並べ替え）使用例

Sort メソッド（列単位の並べ替え）使用例実行結果

Sort メソッド（ピボットテーブル）使用例

Sort メソッド（ピボットテーブル）使用例実行結果