循环遍历列表

Question

我有一个等于一个单元格 (M2) 的数字列表。

这是我的代码：

Dim inputcell As Range
Set inputcell = Range("M2")
Dim itemnumber As Range
Set itemnumber = Worksheets("Sheet4").Range("a1:a117")


Dim Itemlist As Variant
Itemlist = itemnumber.Value

inputcell.Value = Itemlist

我的项目列表位于第 4 页上，包含 117 个不同的数字，并且具有可查阅 N2:P2 和 H2 中的所有信息的查询。

我需要创建一个循环或将遍历每 117 个项目并在 m2 中输入它们的东西。 现在，它只是将项目列表中范围 a1 中的第一项放入 m2 中。

因此，如果我的列表包含数字：340、320、120，循环将进入 340 检查 B6 和 B7 是否等于 H2，然后循环到我的项目列表中的下一个单元格。在循环之后，我需要将项目编号存储到不等于 B6 和 b7 的项目列表中。

这是我的工作簿的图片作为参考：

任何帮助表示赞赏。谢谢！