VBA按日期对行进行排序

Sub SortRowsByDate()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为实际的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '获取最后一行的行号
    
    With ws.Sort '使用Sort对象进行排序
        .SortFields.Clear '清除现有的排序设置
        .SortFields.Add Key:=ws.Range("A2:A" & lastRow), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal '按日期列（假设在第一列）进行升序排序
        .SetRange ws.Range("A1:B" & lastRow) '设置排序范围（包括日期列和其他需要排序的列）
        .Header = xlYes '指定是否包含表头
        .Apply '应用排序设置
    End With
End Sub