至急教えてください！

Excelで日付のオートフィルを行いたいのですが下記を指定すると1行目の項目が
どんどん日付が上に並び変えられてしますます。
項目を1行目に残したまま2行目以降で日付の並び替えが自動にできるように
したいので力を貸してください。
よろしくお願い申し上げます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells.Select
Selection.Sort Key1:=Range("A2"), Header:=xlGuess
End If
End Sub

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2020/10/22 09:47

こんにちは、

1行目を見出し行にしたいと言う事でしょうか？
であるなら、Header:=xlGuessをHeader:=xlYesにするだけです。

この回答へのお礼

ありがとうございます。
できました！
本当に助かりました！もっと勉強します！

お礼日時：2020/10/22 09:55