通过参考值将值通过循环输入到单元格中

Question

这非常令人困惑，所以现在我将其归结为更易于管理的内容。从当前工作表开始：

1. 选择D2并选择到最后一个填充的单元格

2. 浏览“范围”中的每个单元格，然后检查右边的单元格是否为“是”

3. 如果该值为“是”：转到“高级培训”表

4. 在A列中向下搜索具有相同文本值的单元格。转到右侧的单元格并将该值存储在数组

中

5. 如果在此表中找不到它：请转到“ PROSPECT”表

再次

6. 再次搜索A列，并向右查找单元格，然后将该值存储在数组中。

7. 这时，它应该是与起始Range大小相同的数组。

8. 返回到原始工作表，对单元格“ D26”中的所有数组值求和

到目前为止，这是我尝试遍历第一个范围的所有内容

Dim Training As Range
Dim cel As Range
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Set Training = Selection
For Each cel In Training.Cells
    If cel.Value = "Yes" Then


    Else
Next cel