Excel VBAで簡単にレコードの並び替えができた！

はじめに

仕事でExcel VBAを使った開発をする機会が増えたので、レコードの並び替え処理を調査したところ、簡単にできたので、Zennの記事で紹介します。

並び替え前のエクセルの表

エクセルシートにレコード5件入力しました。並び替え前です。

並び替え後のエクセルの表

並び替えマクロを実行した後のエクセルシートです。

ソースコード

実装したソースコードはこちらです。

Sub sort1()
    '最終行の変数をInteger型で定義する
    Dim max_row As Integer
    '最終行を取得する
    max_row = Cells(Rows.Count, 3).End(xlUp).Row
    '身長カラムをキーにして昇順に並び替える
    Range("B2:D" & max_row).Sort Key1:=Range("C2"), order1:=xlAscending, Header:=xlYes
End Sub

最後に

VBAにするほどではないですが、参考になると幸いです。