並べ替え（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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: 網かけ（パターン）の取得・設定（Pattern プロパティ）

網かけ（パターン）を取得・設定するセルの背景に網かけ（パターン）を設定したり、 …

: フリガナの設定（SetPhonetic メソッド）

フリガナの設定（SetPhonetic メソッド） SetPhonetic メソ …

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

Range プロパティ任意のセルにアクセスするには Range プロパティを使 …

: 連続データを入力する（AutoFill メソッド）

AutoFill メソッド Excel で、連続するデータを入力する「オートフィ …

: 指定した行数・列数移動したセル・セル範囲を参照（Offset プロパティ）

Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …

: セル・セル範囲を貼り付ける（Paste メソッド）

Paste メソッド Paste メソッドは、クリップボードの内容を指定したセル …

: セルの表示形式を設定・取得する（NumberFormat プロパティ）

NumberFormat プロパティ NumberFormat プロパティは、現 …

: 任意のセルを含む行または列全体を参照（EntireRow プロパティ,EntireColumn プロパティ）

EntireRow プロパティ・EntireColumn プロパティ Entir …

: オートフィルタ（日付・時刻のグループ化）AutoFilter メソッド

グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …

: セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

セルの値の置換と書式設定検索条件に一致するセルの書式を設定するには、まず、Ap …

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

並べ替え（Sort メソッド）

Sort メソッド

引数・戻り値

Sort メソッド使用例

サンプルVBAソース

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

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

サンプルVBAソース

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

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

サンプルVBAソース

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

Message コメントをキャンセル

関連記事

網かけ（パターン）の取得・設定（Pattern プロパティ）

フリガナの設定（SetPhonetic メソッド）

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

連続データを入力する（AutoFill メソッド）

指定した行数・列数移動したセル・セル範囲を参照（Offset プロパティ）

セル・セル範囲を貼り付ける（Paste メソッド）

セルの表示形式を設定・取得する（NumberFormat プロパティ）

任意のセルを含む行または列全体を参照（EntireRow プロパティ,EntireColumn プロパティ）

オートフィルタ（日付・時刻のグループ化）AutoFilter メソッド

セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

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

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

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

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

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

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

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

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

データベース（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 メソッド（ピボットテーブル）使用例実行結果