是否有VBA代码可以在工作表中按特定的时间间隔对数据进行排序？

Sub SortData()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置要排序的工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:C10")
    
    ' 设置排序规则为按第一列升序排序
    rng.Sort Key1:=rng.Columns(1), Order1:=xlAscending, Header:=xlYes
    
    ' 设置排序完成后的时间间隔（以秒为单位）
    Application.Wait Now + TimeValue("00:00:05")
    
    ' 再次排序
    rng.Sort Key1:=rng.Columns(1), Order1:=xlDescending, Header:=xlYes
End Sub