Vba Excel：检查子字符串并添加值

我有多张Excel表格。第一张图纸包含总信息的数据。第二张工作表包含所有订单行项目的数据

我需要根据第一张表中的信息遍历第二张表，并将行项目的总数相加

例如，这是第一张纸：

这是第二张纸：

我需要：

将第一页中的“客户”字段与“客户名称”和“客户别名”列进行比较

如果第二页中的“客户名称”或“客户别名”包含第一页“客户”字段中的文本，则会比较“项目”字段

如果第一张表中的“项目”字段与第二张表中的“项目”字段匹配，我们将数量和收入相加，并将它们放入第一张表中

最终结果应该如下所示：

---

这是一个非常简单的例子。实际工作表在第一张工作表上包含数百个条目，在第二张工作表上包含数千个行项目。如果你知道怎么做，请帮帮我

以下是一个公式解决方案：

把这个放在C2中：

=SUMPRODUCT((((ISNUMBER(SEARCH($B2,Sheet2!$A$2:$A$100)))+(ISNUMBER(SEARCH($B2,Sheet2!$B$2:$B$100))))>0)*(Sheet2!$C$2:$C$100=$A2)*(Sheet2!D$2:D$100))

然后反复抄写

---

我知道您要求提供vba解决方案，但如果您需要，这里就是。

我应该澄清：第三个图像没有删除其他表项。我只是没有把它们包括在屏幕截图中。请发布到目前为止您编写的VBA代码，并包括您尝试编写请求的任务。另外，请指出程序在代码中的什么地方停止/运行出错/或行为不符合预期。谢谢。如果你有兴趣，也可以用公式来做。