如何在写入数据VBA之前按时间顺序排序

Question

Sub retrieveFutureDates()
counter = 0
For i = 1 To 200
    If Cells(i, 4).Value <> "" And modDate(Cells(i, 4).Value) Then
            Cells(counter + 1, 6).Value = Cells(i, 4).Value
            Cells(counter + 1, 7).Value = Cells(i - 1, 1).Value
            counter = counter + 1
    End If
Next

End Sub

目前我有这个函数循环一列日期，如果日期在7天内（moddate），则应用日期的值和股票的股票代码。但是，如果在列表中日期不按顺序，则子将写入10 / 8,10 / 7,10 / 6。有没有办法按顺序写这个或者是否有某种方法可以在书籍打开时按日期自动排序工作表/书籍？

Answer 1

您可以通过将代码放在ThisWorkbook对象的Workbook_Open事件中来放置一个宏，该宏将在打开工作簿时对范围进行排序。