VBA テーブル（ListObjects）テーブルの並べ替え

テーブルの並べ替え（昇順）

Sub test()
   ’　テーブルの並べ替え（昇順）

    With Range("A1").ListObject
        '「3」列目を、昇順にソート
        .Range.Sort key1:=.ListColumns(3).Range, order1:=xlAscending, Header:=xlYes
    End With

End Sub

テーブルの並べ替え（降順）

Sub test()
   ’　テーブルの並べ替え（降順）

      With Range("A1").ListObject
        '「3」列目を、降順にソート
        .Range.Sort key1:=.ListColumns(3).Range, order1:=xlDescending, Header:=xlYes
    End With

End Sub

実行結果

参考記事

『VBA テーブル（ListObjects）の基本操作』

『VBA　テーブル（ListObjects）の設定・解除』

『VBA　テーブル（ListObjects）指定値以上赤文字にする』

『VBA　テーブル（ListObjects）データを追加する』

『VBA　テーブル（ListObjects）のフィルター設定・解除』

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る