Excelで値に基づいて列を自動的に並べ替えるにはどうすればよいですか？

例えば、以下のような購入テーブルがあるとします。この列に新しい数値や価格を入力したときに、価格列が自動的に並べ替えられるようにしたい場合、どのように解決すればよいでしょうか？ ここでは、VBAマクロを使用してExcelで特定の列を値に基づいて自動的に並べ替える方法をご紹介します。

VBAを使用して値に基づいて列を自動的に並べ替える

VBAを使用して値に基づいて列を自動的に並べ替える

このVBAマクロは、Excelで新しいデータを入力したり、列内の値を変更したりするとすぐに、その列のすべてのデータを自動的に並べ替えます。

1. 「シートタブバー」にある現在のシート名を右クリックし、右クリックメニューから「コードの表示」をクリックします。

2. 開いた「Microsoft Visual Basic for Applications」ダイアログボックスで、以下のVBAマクロコードを開いているウィンドウに貼り付けます。

VBA: Excelで列を自動的に並べ替える

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

注：
1) 上記のVBAコードでは、「B:B」は列Bを自動的に並べ替えることを意味し、B1は列Bの最初のセル、「B2」は列Bの2番目のセルです。必要に応じてこれらを変更できます。
2) 5行目のスニペット「Header:=xlYes」は、並べ替える範囲にヘッダーがあることをExcelに伝えます。そのため、範囲の最初の行は並べ替え時に含まれません。ヘッダーがない場合は、「Header:=xlNo」に変更してください。また、4行目の「Key1:=Range("B2")」を「Key1:=Range("B1")」に変更してください。

3. その後、ワークシートに戻ります。価格列に新しい数値を入力するか、既存の価格を変更すると、価格列が自動的に昇順で並べ替えられます。

注：価格列に新しい数値を入力する場合、元の数値の下にある最初の空白セルに入力する必要があります。新しい入力された数値と元の数値の間に空白セルがあり、または元の数値の間にも空白セルがある場合、この列は自動的に並べ替えられません。

デモ：ExcelでVBAを使用して値に基づいて列を自動的に並べ替える