[ExcelVBA]　エクセルデータを自由自在に並び替える方法[Sort]

本記事はエクセル２０１９で動作確認を行っています。

困ってます

ExcelVBAを使用してセルのデータを並び替えたいです。

具体的なコードを教えて。

本記事はこのような疑問にお答えします。

サイト運営者であるロンピー（@ronpeee0809)はExcelVBAを使用して10年以上会社部内の業務改善を行っています。

これからVBAを学ぶ方がスムーズに学習を進められる手助けをしていきます。

ロンピー

エクセルではデータの並び替え（ソート）を自由に行うことが可能です。

セルの値はもちろん、セルの色・フォントの色・条件付き書式でも並び替えを行うことができます。

エクセルでは「データ」タブ＞「並び替え」で並び替えが行えます。

Sortメソッドの使い方（Excel2002/2003 ）

Sortオブジェクトの使い方（Excel2007以降）

Sortオブジェクトを取得するには、Sortプロパティを使用します。

Sortオブジェクトの様々なメソッドをやプロパティを使用することで、希望の並び替えを行えます。

代表的なメソッドとプロパティは

＜メソッド＞

＜プロパティ＞

SortFieldsコレクションのAddメソッドを使用することで並び替えも行えます。

練習問題

従業員名簿の表を入社日順に並び替えてみましょう。

Sub 並び替え()

    With ActiveSheet.Sort
        .SortFields.Clear　’すべてクリア
        .SortFields.Add Key:=Range("D3"), _
            SortOn:=xlSortOnValues, Order:=xlAscending　’D3列を昇順
        .SetRange Range("A3").CurrentRegion　’表を選択
        .Header = xlYes　’先頭行を見出しに
        .Apply　’実行
    End With

End Sub

(実行結果)

まとめ

並び替えはオブジェクトやメソッドやプロパティの関係性で少し混乱するかもしれません。

基本的なつくりは

となります。

最後まで目を通していただきありがとうございます。