从另一个表中过滤每一行的表

Question

我需要做的是通过使用另一个表中每一行的第二列来过滤一个表。我循环的表包含 11 行，代码循环了 11 次，但每次都使用第 11 行。它需要做的是从第一行到最后一行。

I have used this as source

编辑：在 Variatus 的帮助下，我应用了 count 而不是 For Each。这似乎能够遍历所有行，除了最后一行。 待续。

Edit2：对于那些好奇的人，看看我的后续问题，我让一切正常工作！ Filter a table with an array of criteria derived from another table

Sub LoopDoorAfdelingV4()

Dim myTable As ListObject
Dim myTable2 As ListObject
Dim oRow As ListRow
Dim c As Long


Dim myGroupIDFilter As Variant
Dim myGroupNameFilter As Variant

Set myTable = ActiveSheet.ListObjects("TabelGroupID")
Set myGroupIDFilter = myTable.ListColumns(1).Range
Set myGroupNameFilter = myTable.ListColumns(2).Range
Set myTable2 = ActiveSheet.ListObjects("TabelAfdelingenIntern")


For c = 1 To myTable.ListRows.Count

ActiveSheet.Range(myTable2).AutoFilter Field:=1, Criteria1:=myGroupNameFilter(c), _
 Operator:=xlOr
Next c

End Sub

Answer 1

考虑使用您希望能够处理的最大条件数设置过滤代码，像这样（这里仅演示了 3 个），

ActiveSheet.Range(myTable2).AutoFilter Field:=1, Criteria1:=myGroupNameFilter(1), _
Criteria2:=myGroupNameFilter(2),Criteria3:=myGroupNameFilter(3),Operator:=xlOr

将myGroupNameFilter 的 UBound 设置为相同的最大数。使用循环读取条件来填充 myGroupNameFilter 数组。使用您知道要过滤的列表中不存在的随机值填充 myGroupNameFilter 的元素，这些随机值可能是“XYZ987”或-99999。过滤器应该返回指定的结果，因为那些不匹配的条件不会影响结果。

我讨厌发布此代码，因为它肯定行不通，而且我无法进行测试。它只是为了展示这个想法。

Dim Flt(1 To 15) As Variant

For i = 1 To 15
    If i > myTable.ListRows Then
        ' a value which doesn't exist in your Table2
        Flt(i) = "123XYZ"
    Else
        ' assign a value on which you intend to filter
        Flt(i) = myTable.ListRows(i).Cells(1).Value
    End If
Next

ActiveSheet.Range(myTable2).AutoFilter Field:=1, Criteria1:=Flt(1), _
                                                 Criteria2:=Flt(2), _
                                                 Criteria3:=Flt(3), _
                                                 Criteria4:=Flt(4), _
                                                 Criteria5:=Flt(5), _
                                                 Criteria6:=Flt(6), _
                                                 Criteria7:=Flt(7), _
                                                 Criteria8:=Flt(8), _
                                                 Criteria9:=Flt(9), _
                                                 Criteria10:=Flt(10), _
                                                 Criteria11:=Flt(11), _
                                                 Criteria12:=Flt(12), _
                                                 Criteria13:=Flt(13), _
                                                 Criteria14:=Flt(14), _
                                                 Criteria15:=Flt(15), _
                                        Operator:=xlOr

关键是不能在设置过滤条件的循环中设置过滤器。