この記事では、VBAコードを使用してデータを並べ替える方法を学習します。

データの並べ替えは、データを理解しやすくするために実行する必要のある日常のアクティビティです。

[.underline]＃例を見てみましょう：＃販売レポートがあり、販売番号で並べ替える必要があります

img1

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img2

[挿入]、[モジュール]の順にクリックします

img3

これにより、新しいモジュールが作成されます。

モジュールに次のコードを入力します

Sub Sortdata_ascending（）

Sheets（1）.Range（ “a1：b”＆Range（ “a1″）。End（xlDown）.Row）.Sort _

key1：= Sheets（1）.Range（ “b：b”）、order1：= xlAscending、Header：= xlYes

サブの終了

img4

Alt + F8ショートカットキーを押してマクロウィンドウを開き、マクロを選択します。

img5

または、F5キーを押してVBA画面でコードを実行することもできます。

上記のコードは、Sales値の昇順でデータを並べ替えます。

img6

データをSales値の降順で並べ替えるには（最も高いSalesが一番上に表示され、次に下に表示されます）、次のVBAコードを使用します。

Sub Sortdata_descending（）

Sheets（1）.Range（ “a1：b”＆Range（ “a1″）。End（xlDown）.Row）.Sort _

key1：= Sheets（1）.Range（ “b：b”）、order1：= xlDescending、Header：= xlYes

サブの終了

マクロを実行すると、次の結果が得られます（売上高が最大から最小）

img7

このように、VBAコードを使用してデータを簡単に並べ替えることができます。