Excel VBA筛选宏故障：按开放时长与状态筛选未生效，寻求解决

原代码的核心错误点 #

• 变量声明与取值错误：Dim List1 = Range("E4") 语法不规范，且未指定工作表，可能取到非目标工作表的E4值。正确写法需声明变量类型并明确单元格所属工作表。
• 字符串引号缺失：With Worksheets("CMLog").Range("A9:AC5000) 末尾缺少闭合双引号，这是最初触发运行时错误9的直接原因。
• 多条件筛选语法错误：Criteria1:=">1" And "<=2" 不符合VBA自动筛选的多条件语法，需使用Operator:=xlAnd配合Criteria1和Criteria2。
• 下拉选项文本不匹配：代码中判断的文本（如< = 1 week）与用户实际下拉选项（<1周）不一致，导致条件分支完全不触发。
• 工作表对象混淆：ActiveSheet.Unprotect/Protect 操作的是当前激活工作表，但筛选的是CMLog工作表，可能出现保护错误或权限问题。

修复后的完整代码 #

Sub Button2_Click()
    Dim ws As Worksheet
    Dim filterRange As Range
    Dim selectedCriteria As Variant
    
    ' 指定目标工作表，避免ActiveSheet混淆
    Set ws = ThisWorkbook.Worksheets("CMLog")
    Set filterRange = ws.Range("A9:AC5000")
    
    ' 解锁目标工作表
    ws.Unprotect Password:="1234"
    
    ' 清除原有筛选
    ws.AutoFilterMode = False
    
    ' 获取E4的筛选条件（明确取CMLog工作表的E4，或根据实际位置调整）
    selectedCriteria = ws.Range("E4").Value
    
    ' 执行筛选逻辑
    With filterRange
        ' 先筛选H列（Field:=8）为"Open"
        .AutoFilter Field:=8, Criteria1:="Open"
        
        ' 根据选择的时长条件筛选E列（Field:=5）
        Select Case selectedCriteria
            Case "<1周"
                .AutoFilter Field:=5, Criteria1:="<=1"
            Case ">1周且<2周"
                .AutoFilter Field:=5, Criteria1:=">1", Operator:=xlAnd, Criteria2:="<=2"
            Case ">2周"
                .AutoFilter Field:=5, Criteria1:=">2"
            Case ">3周"
                .AutoFilter Field:=5, Criteria1:=">3"
            Case ">1个月"
                ' 1个月按4周计算，可根据实际需求调整数值
                .AutoFilter Field:=5, Criteria1:=">4"
        End Select
    End With
    
    ' 保护目标工作表
    ws.Protect Password:="1234"
End Sub

关键修改说明 #

1. 明确工作表对象：用Set ws = ThisWorkbook.Worksheets("CMLog")固定目标工作表，避免依赖ActiveSheet导致的错误。
2. 规范变量取值：selectedCriteria = ws.Range("E4").Value确保取到正确单元格的值，若E4不在CMLog工作表，需修改为对应工作表的引用（如ThisWorkbook.Worksheets("Sheet1").Range("E4").Value）。
3. 修复多条件语法：使用Select Case替代多个If判断，更清晰；多条件筛选采用Operator:=xlAnd配合两个Criteria参数。
4. 匹配下拉选项文本：Case后的文本完全对应用户的下拉选项（<1周、>1周且<2周等），确保条件分支能正确触发。
5. 统一工作表操作：解锁和保护的都是目标工作表ws，避免权限问题。

额外注意事项 #

• 确保E列（Field:=5）存储的是数值类型（代表周数），如果是文本格式，筛选会失效。
• 若>1个月的定义不是4周，可自行修改Criteria1:=">4"中的数值。
• 确认筛选范围A9:AC5000包含表头行（A9应为表头），自动筛选需要表头才能正常工作。

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