-ChatGPT-4に「開始日と終了日が入った売上データがあります。VBAで開始日列を昇順にしてください。」と頼んだら

-ChatGPT-4への質問

開始日と終了日が入った売上データがあります。VBAで開始日列を昇順にしてください。

ChatGPT4の回答

Sub SortByStartDate()
    Dim ws As Worksheet
    Dim lastRow As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1") ' シート名を適切なものに変更してください。
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row ' 開始日が入っている列の最終行を取得（この例ではB列）

    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("B1:B" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending
        .SetRange Range("A1:C" & lastRow) ' ソート範囲を指定（この例ではA列からC列までのデータをソート）
        .Header = xlYes ' ヘッダー行がある場合
        .Apply
    End With

    MsgBox "開始日で昇順にソートしました。"
End Sub