我帮你调整并完善了代码，添加了第7字段的日期筛选逻辑，还优化了原代码的稳定性细节：

Sub Filter()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filterRange As Range
    
    ' 直接指定目标工作表，避免用Select（更稳定的写法）
    Set ws = ThisWorkbook.Sheets("CP")
    ' 获取数据最后一行（和你原代码逻辑一致，基于E列判断）
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    ' 扩展筛选范围到第18列（原代码的a3:d覆盖不到第18字段，会导致该筛选失效）
    Set filterRange = ws.Range("A3:R" & lastRow)
    
    ' 先清除之前的筛选状态，避免叠加筛选出问题
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 批量应用三个筛选条件
    With filterRange
        ' 第5字段筛选"Plan"
        .AutoFilter Field:=5, Criteria1:="Plan"
        ' 第18字段筛选"No"
        .AutoFilter Field:=18, Criteria1:="No"
        ' 第7字段筛选：保留今日起14天后及之后的记录
        .AutoFilter Field:=7, Criteria1:=">=" & CLng(Date + 14), Operator:=xlAnd
    End With
End Sub

关键细节说明： #

• 筛选范围修正：原代码的a3:d只覆盖到D列，但你要用到第18字段（对应R列），必须把范围扩展到A3:R才能让所有筛选条件生效。
• 日期筛选逻辑：用Date + 14计算出14天后的日期，通过CLng()将日期转为数值（Excel中日期本质是数值类型），确保AutoFilter能正确识别日期条件。
• 避免Select依赖：直接引用工作表对象比Select更可靠，不会因为当前激活工作表变化而出错。
• 清除旧筛选：每次执行前清除原有筛选状态，保证新的筛选条件是完全生效的。

如果你的第7字段是文本格式的日期，建议先将单元格格式改为日期类型，这样筛选会更准确；如果无法修改格式，可以调整筛选条件为文本匹配，但日期格式是最优选择。

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