Hey Bruce，刚看到你的问题，作为VBA新手碰到这种筛选逻辑的坑太正常了——我当初也在AutoFilter的多条件筛选上栽过跟头！

你之前尝试用带引号的字符串拼接（比如"AL", "AK"）其实找错了方向，Excel的AutoFilter处理多值筛选时，不能直接用这种字符串格式，而是需要把选中的州放进数组，再配合xlFilterValues运算符才能生效。我给你整理了一套可行的方案：

1. 先收集选中的复选框值 #

首先遍历所有州的复选框，把勾选的州名称存到集合（或数组）里。这里假设你用的是ActiveX复选框，且复选框的Caption属性就是州名：

Dim selectedStates As Variant
Dim stateList As Collection
Dim cb As Object
Dim i As Integer

Set stateList = New Collection

' 遍历工作表上的所有ActiveX复选框（替换成你的控件所在工作表）
For Each cb In Sheet1.OLEObjects
    If TypeName(cb.Object) = "CheckBox" And cb.Object.Value = True Then
        stateList.Add cb.Object.Caption
    End If
Next cb

' 把集合转成数组（AutoFilter需要数组格式）
ReDim selectedStates(1 To stateList.Count)
For i = 1 To stateList.Count
    selectedStates(i) = stateList(i)
Next i

2. 分情况应用筛选 #

根据选中州的数量，分别处理单选和多选场景：

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("你的数据工作表名") ' 替换成你的数据所在表
Dim filterColumn As Integer
filterColumn = 2 ' 假设州数据在第2列，根据实际情况调整

' 先清除现有筛选
ws.AutoFilterMode = False

If stateList.Count > 0 Then
    If stateList.Count = 1 Then
        ' 单选时直接传单个值
        ws.Range(ws.Cells(1, filterColumn), ws.Cells(ws.Rows.Count, filterColumn).End(xlUp)).AutoFilter _
            Field:=filterColumn, Criteria1:=selectedStates(1)
    Else
        ' 多选时用数组+xlFilterValues运算符
        ws.Range(ws.Cells(1, filterColumn), ws.Cells(ws.Rows.Count, filterColumn).End(xlUp)).AutoFilter _
            Field:=filterColumn, Criteria1:=selectedStates, Operator:=xlFilterValues
    End If
Else
    ' 没有选中任何州时的提示（可选）
    MsgBox "请至少选择一个州！"
End If

关键说明 #

• 为什么之前的方法失效？：Excel的AutoFilter不识别手动拼接的带引号字符串，它需要的是实际的数组元素，而非字符串形式的"AL","AK"。
• 注意匹配度：确保复选框的Caption和数据表里的州名完全一致（大小写、空格都要对应），否则筛选会找不到目标值。
• 如果用的是表单控件（非ActiveX）：可以改成遍历Sheet1.Shapes，判断Shape.Type = msoFormControl，再通过ControlFormat.Value = xlOn判断是否勾选。

你可以试试这套代码，应该能同时解决单选和多选的问题，如果还有控件类型、数据位置这类细节需要调整，随时再细化说明！

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