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

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

: 入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ

IMEMode プロパティ Validation.IMEMode プロパティを …

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

HorizontalAlignment プロパティ HorizontalAlig …

: セルの値を置換（Replace メソッド）

Replace メソッド任意のセル範囲内から特定の値を一括して置換します。Fi …

: 入力規則（入力時メッセージの設定）Validation オブジェクト

入力規則の入力時メッセージを表示する Validation.ShowInput …

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

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

: ハイパーリンク（Hyperlinks オブジェクト）

Hyperlinks オブジェクトワークシートまたはセル範囲のワークシートコレ …

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

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

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

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

: テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）

PatternThemeColor プロパティ・PatternTintAndSh …

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

並べ替え（Sort メソッド）

Sort メソッド

引数・戻り値

Sort メソッド使用例

サンプルVBAソース

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

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

サンプルVBAソース

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

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

サンプルVBAソース

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

Message コメントをキャンセル

関連記事

セルを挿入する（Insert メソッド）

入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ

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

セルの値を置換（Replace メソッド）

入力規則（入力時メッセージの設定）Validation オブジェクト

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

ハイパーリンク（Hyperlinks オブジェクト）

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

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

テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）

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

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

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

印刷時の改ページ設定（Add,ResetAllPageBreaks）

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

別のブックのマクロを実行（Run メソッド）

再計算（Calculation, EnableCalculation, Calculate）

セルの値を置換（Replace メソッド）

省略可能な引数・デフォルト値を設定（ Optional キーワード）

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

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