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

: 罫線の設定（Borders プロパティ）

罫線の設定罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …

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

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

: フリガナ（Phonetic プロパティ）

Phonetic プロパティ文字列（漢字など）をキーボードから入力した時の「読 …

: セル幅・高さの既定値（StandardHeight プロパティ・StandardWidth プロパティ）

StandardHeight プロパティ・StandardWidth プロパティ …

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

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

: 対象のセル・セル範囲に数式があるかどうか調べる（HasFormula プロパティ）

HasFormula プロパティ HasFormula プロパティは、対象のセル …

: 指定したセルへ移動（Goto メソッド）

指定したセルへ移動指定したシートの指定したセルへジャンプするには、Goto メ …

: 非連続のセルが選択されているか確認する（Areas コレクション）

Areas コレクションの使い方複数の離れた位置にあるセル範囲を選択した場合 …

: オートフィルタ（平均より上・平均より下）AutoFilter メソッド

平均値よりも大きい（小さい）値のレコードを抽出 AutoFilter メソッドで …

: 文字列の縦位置を取得・設定する（VerticalAlignment プロパティ）

VerticalAlignment プロパティ VerticalAlignmen …

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

並べ替え（Sort メソッド）

Sort メソッド

引数・戻り値

Sort メソッド使用例

サンプルVBAソース

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

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

サンプルVBAソース

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

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

サンプルVBAソース

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

Message コメントをキャンセル

関連記事

罫線の設定（Borders プロパティ）

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

フリガナ（Phonetic プロパティ）

セル幅・高さの既定値（StandardHeight プロパティ・StandardWidth プロパティ）

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

対象のセル・セル範囲に数式があるかどうか調べる（HasFormula プロパティ）

指定したセルへ移動（Goto メソッド）

非連続のセルが選択されているか確認する（Areas コレクション）

オートフィルタ（平均より上・平均より下）AutoFilter メソッド

文字列の縦位置を取得・設定する（VerticalAlignment プロパティ）

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