使用VBA Excel筛选和选择特定期间的条目，例如5天

Sub FilterByDate()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentRow As Long
    Dim lastRow As Long
    
    ' 设置起始日期和结束日期
    startDate = Date - 5 ' 当前日期减去5天
    endDate = Date ' 当前日期
    
    ' 获取数据表的最后一行
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每一行数据
    For currentRow = 2 To lastRow ' 假设数据从第2行开始，第1行为表头
        ' 获取当前行的日期
        Dim dateValue As Date
        dateValue = Cells(currentRow, 1).Value
        
        ' 检查日期是否在指定的期间内
        If dateValue >= startDate And dateValue <= endDate Then
            ' 在此处执行你的操作，例如复制到另一个表格或进行其他处理
            ' 示例操作：将当前行的数据复制到第2个工作表的下一行
            Worksheets(2).Cells(Worksheets(2).Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Cells(currentRow, 1).Value
            Worksheets(2).Cells(Worksheets(2).Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Cells(currentRow, 2).Value
            ' ...
        End If
    Next currentRow
End Sub