根据匹配结果将值写入单元格

Question

我是VBA的新手，所以请耐心等待我。我有两本工作簿，我正在努力工作。 Workbook1有一个商店列表（A列）和一个计划编号（B列）。 Workbook2具有我需要的计划编号和项目编号，但是计划在列的第3行中。我需要从WB2复制项目编号并粘贴到WB1.Row（无论如何）如果他们携带该项目。

WB1

Store | Plan
------------
1    | 1234    
2    | 1234    
3    | 4321

WB2

Item | 1234 | 4321    
999  |   Y  |    
888  |      |  Y

我一直试图将它拼凑在一起，但现在没有任何事情发生。

  With xlWS
        For i = 2 To rCount
            colLet = Application.Match(xlWS.Cells(i, 7).Value, xlWS2.Range("F3:Z3"), 0)
                If IsError(colLet) Then
                ElseIf IsEmpty(xlWS2.Cells(i, colLet)) = False Then
                xlWS.Cells(i, p + 16).Value = xlWS2.Cells(i, 2).Value
                p = p + 1
            Else
            End If
        Next
End With

最终，我试图找到每家商店所有物品的清单。所需的结果如下：

结果

Store | Sku
------------
1    | 1111    
1    | 2222    
3    | 1111