VBA オートフィルタ:最小から最大への並べ替え (3 つの方法)

大規模な Microsoft Excel で作業しているときに、 場合によっては、データを最小から最大に並べ替える必要があります。 VBA マクロを使えば簡単にできます。 . VBA コードの適用 最小から最大へのソートは簡単な作業です。今日、この記事では 3 について学びます Excel で最小から最大への VBA オートフィルタ ソートの迅速かつ適切な方法 適切なイラストで効果的に。

Excel で VBA オートフィルターを最小から最大に並べ替える (クイック ビュー)

Sub Autofilter_Sort_Smallest_to_Largest()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub

Excel で VBA オートフィルターを使用して最小から最大に並べ替える 3 つの適切な方法

たとえば、複数の営業担当者に関する情報を含むデータセットがあるとします。 アルマーニの グループ。 営業担当者の名前 、 商品の種類 、 そして順序付けられた および 配送された商品 営業担当者による B、C、D、 列に記載されています そしてE それぞれ。データセットから並べ替えます 最小から最大までのデータ VBA を使用 コード。これが、今日のタスクのデータセットの概要です。

1. VBA オートフィルターで昇順を使用して最小から最大に並べ替える

次に、並べ替えの方法を示します 昇順で小さいものから大きいものへ シンプルな VBA を使用して コード。特定の瞬間に非常に役立ちます。データセットから、 Ordered に従ってデータを並べ替えます。 製品の 昇順。 以下の手順に従って、データを最小から最大に並べ替えましょう!

ステップ 1:

• まず、モジュールを開きます。これを行うには、まず Developer から タブ、移動、

開発者 → Visual Basic

• Visual Basic をクリックした後 リボン、Microsoft Visual Basic for Applications – データの最小から最大への並べ替えという名前のウィンドウ すぐ目の前に現れます。そのウィンドウから、VBA コードを適用するためのモジュールを挿入します。 .そのためには、
にアクセスしてください。

挿入 → モジュール

ステップ 2:

• したがって、最小から最大へのデータの並べ替え モジュールがポップアップします。 データの最小から最大への並べ替え モジュール、以下の VBA を書き留めます

Sub Autofilter_Sort_Smallest_to_Largest()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub

• したがって、 VBA を実行します そのためには、
にアクセスしてください。

実行 → サブ/ユーザーフォームを実行

• VBA コードの実行後 、データを並べ替えることができます 下のスクリーンショットに示されている最小から最大まで。

続きを読む: Excel の同じフィールドに複数の条件を指定して AutoFilter する VBA (4 つの方法)

2.複数の列を使用して、Excel VBA のヘッダーで最小から最大に並べ替える

この方法では、複数の列を並べ替える 最小から最大のヘッダーを使用します。データセットから 名前 に従ってデータを並べ替えます 営業担当者の 注文済み 最小から最大までの製品。以下の手順に従って、ヘッダーのある複数の列を最小から最大の順に並べ替えましょう!

ステップ 1:

• まず、方法 1 に従って、 挿入 新しいモジュールを作成し、以下の VBA を入力します 文字色を変更するコード。 VBA コード

Sub Sort_Multiple_Columns()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("B4"), Order:=xlAscending
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub

• さらに、VBA を実行します そのためには、
にアクセスしてください。

実行 → サブ/ユーザーフォームを実行

ステップ 2:

• VBA コードの実行後 、並べ替えできるようになります 名前 に基づくデータ 営業担当者の 注文済み 商品 小さいものから大きいものへ これは下のスクリーンショットに示されています。

続きを読む: [修正]:Range クラスの AutoFilter メソッドが失敗しました (5 つの解決策)

3. VBA オートフィルターを適用してワークシート名で最小から最大に並べ替える

最後になりましたが、データを使用して並べ替えることもできます ワークシート名に従って小さいものから大きいものへ VBA コードを使用 エクセルで .データセットから、配信されたデータを最小のものから最大のものに並べ替えます 製品。これは簡単な作業であり、時間の節約にもなります。以下の手順に従って、ワークシート名に従ってデータを最小から最大の順に並べ替えましょう !

ステップ 1:

• まず 挿入 方法 1 による新しいモジュール 以下の VBA を入力します。 文字色を変更するコード。 VBA コード

Sub Sort_Smallest_to_Largest()
Rows("4:16").Select
ActiveWorkbook.Worksheets("Smallest to Largest").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Smallest to Largest").Sort.SortFields.Add Key:=Range("E4:E16") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Smallest to Largest").Sort
.SetRange Range("B4:E16")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

• さらに、VBA を実行します そのためには、
にアクセスしてください。

実行 → サブ/ユーザーフォームを実行

ステップ 2:

• VBA コードの実行後 、ワークシート名に従ってデータを最小から最大に並べ替えることができます これは下のスクリーンショットに示されています。

続きを読む: Excel VBA で表示されている行をオートフィルターしてコピーする方法

覚えておくべきこと

👉 Microsoft Visual Basic for Applications をポップアップ表示できます Alt + F11 を押してウィンドウを開きます 同時に .

👉 開発者の場合 タブがリボンに表示されていない場合は、表示することができます。そのためには、

にアクセスしてください。

ファイル → オプション → リボンのカスタマイズ

結論

上記の適切な方法のすべてが最小から最大への並べ替えを行うことを願っています VBA で コードは Excel にそれらを適用するように促します より生産性の高いスプレッドシート。ご質問やご不明な点がございましたら、お気軽にコメントしてください。

関連記事

• オートフィルターがオンになっているかどうかを確認する Excel VBA (4 つの簡単な方法)
• Excel で VBA を使用して特定の値と等しくない値をオートフィルター処理する方法
• Excel VBA:オートフィルターが存在する場合は削除する (7 つの方法)