Excelでデータを入力または変更した際に日付を自動的に並べ替えるにはどうすればよいですか？

Excelでは、ソート機能を使用して、必要に応じて日付を昇順または降順で並べ替えることができます。しかし、それは動的ではありません。一度日付を並べ替えた後、新しい日付を追加すると、再度並べ替えを行う必要があります。ワークシートに新しいデータを入力するたびに日付を自動的に並べ替えるための良い方法や迅速な方法はありますか？

数式を使用して日付が入力または変更されたときに自動的に日付を並べ替える

VBAコードを使用して日付が入力または変更されたときに自動的に日付を並べ替える

数式を使用して日付が入力または変更されたときに自動的に日付を並べ替える

例えば、元の日付が列Aにある場合、次の数式を使用すると、並べ替えたい列に基づいて、日付やその他のテキスト文字列を新しい補助列に自動的に並べ替えることができます。以下の手順に従ってください：

1. 次の数式を入力します：

=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) を日付列の隣の空白セル（例：C2）に入力し、Ctrl + Shift + Enterキーを同時に押して数列を取得します。次に、フィルハンドルを下にドラッグして目的のセルまでコピーします。スクリーンショットをご覧ください：

注：上記の数式において、A2:A15は自動的に並べ替えたい元の日付範囲です。

2. 次に、 ホームタブの「全般」ドロップダウンリストから「短い日付」を選択して、数字を日付形式に設定します。スクリーンショットをご覧ください：

3. これで連続した番号が日付形式に変換され、元の日付も並べ替えられています。スクリーンショットをご覧ください：

4. 今後、列Aに日付を入力または変更すると、列Cの日付が自動的に昇順で並べ替えられます。スクリーンショットをご覧ください：

VBAコードを使用して日付が入力または変更されたときに自動的に日付を並べ替える

次のVBAコードを使用すると、日付を入力または変更した際に元の列で日付を自動的に並べ替えることができます。

1. 日付を入力または変更した際に自動的に日付を並べ替えたいワークシートに移動します。

2. シートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開いたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールウィンドウにコピーして貼り付けます。スクリーンショットをご覧ください：

VBAコード：日付が入力または変更された際に自動的に並べ替える：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    On Error Resume Next
    If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
                                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

注：上記のコードでは、入力された日付は列Aで自動的に並べ替えられます。必要に応じて、 A1とA2を独自のセルに変更できます。

3. 今後、列Aに日付を入力すると、日付が自動的に昇順で並べ替えられます。