VBA组合下拉条件过滤数据表：投注工作簿周筛选异常求助

我明白你的痛点了！你现在的代码里，每个周条件（C3到C6）触发时都是单独覆盖Field2的筛选规则，所以每次只能显示最后设置的那个周的数据。要实现同时筛选多个周，我们得把所有有效的周条件收集起来，一次性应用多值筛选才行。

先给你修正后的完整代码，我还修复了原代码里的拼写错误（比如把Tabek1改成了正确的Tabel1）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理C1到C6的单元格变化
    If Intersect(Target, Me.Range("C1:C6")) Is Nothing Then Exit Sub
    
    Dim tbl As ListObject
    Dim yearCriteria As Variant
    Dim tourneyCriteria As Variant
    Dim weekCriteria As Collection
    Dim cell As Range
    Dim filterArray() As Variant
    Dim i As Integer
    
    ' 关闭屏幕更新和事件触发，避免重复触发和卡顿
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Set tbl = Worksheets("Ark1").ListObjects("Tabel1")
    Set weekCriteria = New Collection
    
    ' 获取年份条件
    yearCriteria = Me.Range("C1").Value
    ' 获取赛事条件
    tourneyCriteria = Me.Range("C2").Value
    
    ' 收集所有有效的周条件（排除"All"和空值）
    For Each cell In Me.Range("C3:C6")
        If cell.Value <> "All" And cell.Value <> "" Then
            weekCriteria.Add cell.Value
        End If
    Next cell
    
    ' 先清除所有筛选
    tbl.AutoFilter.ShowAllData
    
    ' 应用年份筛选
    If yearCriteria <> "All" Then
        tbl.Range.AutoFilter Field:=1, Criteria1:=yearCriteria
    End If
    
    ' 应用赛事筛选
    If tourneyCriteria <> "All" Then
        tbl.Range.AutoFilter Field:=3, Criteria1:=tourneyCriteria
    End If
    
    ' 应用多周筛选
    If weekCriteria.Count > 0 Then
        ' 把Collection转成数组，供AutoFilter使用
        ReDim filterArray(1 To weekCriteria.Count)
        For i = 1 To weekCriteria.Count
            filterArray(i) = weekCriteria(i)
        Next i
        tbl.Range.AutoFilter Field:=2, Criteria1:=filterArray, Operator:=xlFilterValues
    End If
    
    ' 恢复屏幕更新和事件触发
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

代码逻辑说明： #

• 首先判断变化的单元格是否在C1-C6范围内，避免无关操作触发代码
• 关闭屏幕更新和事件触发，防止代码执行时的卡顿和循环触发问题
• 收集所有非"All"且非空的周条件到集合里
• 先清除所有现有筛选，再依次应用年份、赛事、多周筛选
• 周条件用Operator:=xlFilterValues实现多值同时筛选，这样就能显示所有符合条件的周的数据了

使用注意： #

• 当C3-C6里的单元格输入"All"或者为空时，该条件会被忽略
• 输入多个不同的周数，表格会自动显示所有这些周的符合年份和赛事条件的数据
• 不管修改哪个条件单元格（C1-C6），所有筛选规则都会重新生效，保证筛选结果的一致性

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