多条件Autofilter问题：基于另一工作表Item ID过滤数据

你的代码遇到的核心问题很明确：每次循环单独设置一个筛选条件，后面的条件会直接覆盖之前的，导致最终只能看到最后一个ID的筛选结果，而不是所有匹配ID的集合。咱们换个思路，先把要匹配的ID全部收集起来，再一次性完成筛选，就能解决这个问题了。

解决方案思路 #

1. 先把Restanschluss Vormontage工作表K列（第11列）里的目标Item ID全部收集到一个数组中
2. 用这个数组作为AutoFilter的筛选条件，配合xlFilterValues操作符，一次性筛选出所有匹配的行
3. 可选：删除不匹配的行，直接得到精简后的工作表

修改后的完整代码 #

If CheckSheet("BMV Vormontage") Then
    ' 复制原始工作表并命名，同时定义工作表对象方便后续操作
    Sheets("Werkzeugtabelle").Copy After:=Sheets("BMV Vormontage")
    Dim wsFilter As Worksheet
    Set wsFilter = ActiveSheet
    wsFilter.Name = "Werkzeugtabelle Vormontage"
    
    ' 定义存储目标ID的工作表对象
    Dim wsSource As Worksheet
    Set wsSource = Sheets("Restanschluss Vormontage")
    
    ' 获取两个工作表的有效数据行数
    Dim lRow As Long, xRow As Long
    lRow = wsFilter.Cells(Rows.Count, 1).End(xlUp).Row
    xRow = wsSource.Cells(Rows.Count, 11).End(xlUp).Row
    
    ' 收集所有需要匹配的Item ID到数组中
    Dim filterIDs As Variant
    ReDim filterIDs(1 To xRow - 9) ' ID从第10行开始，所以数组长度是xRow-9
    Dim a As Long
    For a = 10 To xRow
        filterIDs(a - 9) = wsSource.Cells(a, 11).Value
    Next a
    
    ' 执行批量筛选：一次性匹配数组中所有ID
    wsFilter.Range("A1:A" & lRow).AutoFilter Field:=1, Criteria1:=filterIDs, Operator:=xlFilterValues
    
    ' 可选操作：删除不匹配的隐藏行，得到精简后的工作表
    On Error Resume Next ' 防止没有隐藏行时触发错误
    wsFilter.Range("A2:A" & lRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    wsFilter.AutoFilterMode = False ' 关闭筛选状态
    On Error GoTo 0
End If

关键代码解释 #

• 数组收集ID：避免了循环覆盖筛选条件的问题，把所有要匹配的ID一次性准备好
• Operator:=xlFilterValues：这是实现多ID匹配的核心参数，告诉Excel要筛选出和数组中任意值匹配的行
• 删除隐藏行：如果你需要直接得到只包含匹配ID的工作表，就保留这段代码；如果只是需要筛选视图，去掉即可

注意事项 #

• 确保Restanschluss Vormontage的K列没有空值，否则数组会包含空值，可能筛选出不需要的行
• 两个工作表的Item ID格式要一致（比如不要一个是数字格式，一个是文本格式），否则会出现匹配失败的情况
• 确认CheckSheet函数能正确检测目标工作表是否存在，避免运行时错误

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