筛选Excel表以在VBA中显示下周一和周五的数据

Sub FilterDataForNextWeek()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim currentDate As Date
    Dim nextMonday As Date
    Dim nextFriday As Date
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你的工作表名称
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 获取当前日期
    currentDate = Date
    
    ' 计算下周一和下周五的日期
    nextMonday = DateAdd("d", 8 - Weekday(currentDate, vbMonday), currentDate)
    nextFriday = DateAdd("d", 12 - Weekday(currentDate, vbMonday), currentDate)
    
    ' 设置筛选范围
    Set rng = ws.Range("A1:A" & lastRow) ' 将"A1:A"替换为你的数据范围
    
    ' 清除之前的筛选
    rng.AutoFilter
    
    ' 应用筛选条件
    rng.AutoFilter Field:=1, Criteria1:=">=" & nextMonday, Operator:=xlAnd, Criteria2:="<=" & nextFriday
    
End Sub