VBA オートフィルタで表をソートする

オートフィルタで表をソートする

Sub test()

    '　オートフィルタで表をソートする

    Range("A1").AutoFilter
    
    With ActiveSheet.AutoFilter.Sort
        With .SortFields
            .Clear 　'　ソートキーを削除
            '昇順にソート
            .Add Key:=Range("E1"), Order:=xlAscending

        End With
        .Apply
    End With

End Sub

降順にするには、「Order:=xlDescending」にすれば良いです。

実行結果

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

参考記事

『VBA データの操作　オートフィルター』

『VBA オートフィルター　データが絞り込んでいるか判断方法』

『VBA　フィルターで特定文字を含むデータを抽出』

『VBA 色で絞り込む方法』

『VBA 最終行・列の取得』

『VBA　セルに数式を入力・取得』

『VBA 連続データの作成　AutoFillメソッド』

『VBA セル選択範囲の変更 Resizeプロパティ』

『VBA セル入力規則の設定（Validation）』