Excelでデータ入力をしていると、「新しく追加したデータを常に昇順に整えたい」「入力後に自動で並べ替わってほしい」と感じる場面がよくあります。
たとえば、売上記録を日付順に保ちたい、名前順に顧客一覧を並べたいといったケースです。
こうした並び替えを毎回手動で実行するのは意外と手間がかかり、ミスの原因にもなります。
そこで今回は、「データを入力したら自動で並び替えが実行される」シートをVBAで作成してみましょう。
シート変更を検知して並び替えるマクロ
入力直後に自動で並び替えを行うには、シートの変更を検知するイベントを使います。
次のコードは、「D列にデータが入力されたら、A列を昇順に並び替える」という処理です。想定としては、A〜D列に入力する内容があり、D列が入力された時点で並べ替えるという動きをします。
まずは、対象シートのコードウィンドウ（「Sheet1」など）に次のマクロを記載します。
Private Sub Worksheet_Change(ByVal Target As Range)
' D列の変更を検知
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Application.EnableEvents = False ' マクロの再実行を防ぐ
' 並び替え実行（A列を昇順）
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), _
Order1:=xlAscending, Header:=xlYes
Application.EnableEvents = True
End If
End Subこのコードでは、D列に変更が加わるたびに、その列を基準に並び替えが自動で実行されます。
データ範囲は「A1から始まる連続したセル範囲（CurrentRegion）」が対象です。
コードのポイント
Worksheet_Changeはセルの内容が変更されたときに自動実行されるイベントプロシージャIntersect(Target, Range("D:D"))で、変更がD列に対するものであるかを確認Application.EnableEvents = Falseで無限ループを防止CurrentRegion.Sortを使って、対象範囲をシンプルに並び替え
複数列で並び替えるパターン
次に、「まずはB列で昇順、同値がある場合はC列で昇順」といった複数条件での並び替えにも対応するコードを紹介します。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:C")) Is Nothing Then
Application.EnableEvents = False
With Range("A1").CurrentRegion
.Sort Key1:=.Columns(2), Order1:=xlAscending, _
Key2:=.Columns(3), Order2:=xlAscending, _
Header:=xlYes
End With
Application.EnableEvents = True
End If
End Subこのように書くことで、対象列の並び替えが自動かつ複数条件で柔軟に行えるようになります。
実装するメリット
入力と同時に自動で並び替える仕組みを導入することで、次のようなメリットが得られます。
- 並び順を毎回確認・調整する必要がなくなる
- 入力の順番に関係なく、見やすいデータ一覧を保てる
- 並び替えミスを防止し、業務品質を安定させられる
- 複数人で編集しても整った状態を維持できる
- 日付順、名前順、金額順など、用途に応じた管理が可能になる
特に、「順番が重要な帳票」「追記されるたびに整理されていてほしい管理表」などにおいては、自動並び替えは大きな効果を発揮します。
まとめ
並び替えの処理を手作業に頼っていると、忘れてしまったり、他の人が意図しない順序にしてしまったりするリスクがあります。
VBAで「入力と同時に自動で並び替えられるシート」を構築することで、誰が操作しても常に整った状態を保つことができます。
最初はシンプルにA列だけで試してみて、業務に合わせて複数列や対象範囲を広げていくのがおすすめです。
整った見た目と正しい並び順をキープすることで、Excelファイルの見やすさと信頼性がぐっと上がります。