VBA实现Excel按每周周二至周二周期自动筛选数据

核心逻辑 #

• 借助VBA内置的Weekday函数搭配vbTuesday常量计算周期偏移：Weekday(目标日期, vbTuesday)返回值为1时代表传入日期是周二，周三返回2，顺延到周一返回7，通过返回值做日期减法即可精准定位周期起始的周二日期。
• 筛选采用双条件规则：大于等于周期起始周二0点，小于下一个周二0点，避免带时分秒的时间数据出现漏筛、错筛。
• 修正原代码筛选范围和字段所在列不匹配的问题，原代码固定筛选A列，当目标时间字段不在A列时会触发运行错误。

可直接复用的代码 #

Dim j As Integer
Dim startTuesday As Date
Dim endTuesday As Date
Dim lastRow As Long

' 定位时间字段所在列
j = Application.WorksheetFunction.Match("Date and Time Completed", Range("A1:BG1"), 0)

' 计算当前周二到下周二周期的起止时间
startTuesday = Date - (Weekday(Date, vbTuesday) - 1)
endTuesday = startTuesday + 7

' 获取数据区域最后一行行号
lastRow = Range("A" & Rows.Count).End(xlUp).Row

' 执行筛选
Range("A1:BG" & lastRow).AutoFilter Field:=j, _
    Criteria1:=">=" & CLng(startTuesday), _
    Operator:=xlAnd, _
    Criteria2:="<" & CLng(endTuesday)

调整说明 #

• 如果需要筛选上一个已结束的周二到周二周期，把startTuesday计算式改为Date - (Weekday(Date, vbTuesday) - 1) - 7即可，结束日期会自动同步偏移7天。
• 注意：不要用<= endTuesday - 1的写法设置结束条件，当时间字段包含23:59:59的记录时会被漏掉，用< endTuesday的写法兼容性更强。

内容的提问来源于stack exchange，提问作者trversky32