在循环

Question

我从未使用过收藏品，但认为它可能是我的最佳选择。我正在尝试在列（B）中的单元格中运行循环。如果值是“THIS”或“THAT”，我希望程序查看下一列（C）并将值（整数）存储在集合中。接下来，我需要将该集合与另一个工作簿中的列表进行比较。对于不在新工作簿中的每个集合，我希望将集合值粘贴到新工作簿的G列中。这就是我想出来的。

Sub StoreCartusResNumsAsCollection()
Dim coll As New Collection
Dim c As Range
For Each c In Sheet2.Range("A2:A52")
    If c.Value = "CARTUS" Then Offset(1,0) coll.Add c.Value
Next c
Dim i As Long
For i = 1 To coll.Count
Debug.Print coll(i)
End Sub

代码尚未包含“OR”部分，用于检查值是否为“THAT”。我也没有过去添加到集合中，因为我正在尝试调试.print以确保集合正常工作但停滞不前。