search哪个单元格包含特定文本并修改偏移单元格

我正在寻找解决以下问题的解决scheme，目前无法解决：

在Sheet1中，我有我的产品订单。 列A是产品代码，列B是订购数量。

在Sheet2中，客户select多个variables，这些variables以所选variables的级联标签结尾，例如：A1 – 客户可以从a，b或c（通过下拉框中的值validation）中select，A2 – 客户可以select从1，2或3和A3客户可以select红色，蓝色或绿色。 然后在A4值客户select所需的数量。 例如，在一个隐藏的单元格中，假设A5我们连接variables的select并获取标签a2blue，例如，我们需要find来自表单1的WHICH产品具有标签a2blue，并将其数量更改为5。

现在回到sheet1，我想创build一个列C，其中包含产品的可能标签。

例如productX可以有标签“a2blue，a3blue，b1blue”。 我想创build一个公式，它可以search表1中的哪个产品与客户的标签相匹配并添加数量。 假设我们在表1中发现在第9行有产品代码ProductX，在C列中有标签“a2blue，a3blue，b1blue”（注意，产品应该能够有多个标签，因此不可能进行精确search，如果文本被包含，只是一个search）。 对于这个产品，我想把数量改成5。

当然，这也可以通过VBA来解决，但是在VBA中，我是newby，所以需要额外的支持。

图1：在B4和B5，客户select混凝土和沥青。 这将稍后在sheet2上生成系统不同部分所需的一些“标签”。

图2：工作表2的快照。单元格B7显示基于顾客从工作表1中select的作为结束锚点项目，我们需要具有标签“Concretebitumenend”的产品。 数量已经在C7中计算了。 基于标签Concretebitumenend（Sheet2单元格B7中的标签，根据C7需要2个标签），当单击Sheet1上的Calculate时，应该在Sheet1列中find哪个产品列H中有标签。 例如，在这种情况下，H29不适合，因为它没有标签Concretebitumenend，所以应该find正确的行，然后它应该得到所需的数量在列E.

Thx为您的支持！

Answer 1

解决scheme发现

Sub proof() ' ' proof Macro ' n2 = 26 n1 = 489 For i = 29 To 489 Cells(i, 5) = 0 Next i For i = 1 To n2 For j = 29 To n1 a = UCase(Sheets("sheet2").Cells(i, 2)) b = UCase(Sheets("sheet1").Cells(j, 8)) If a = "" Then GoTo 10 If (a <> "" And b <> "") And InStr(b, a) Then 'Stop Sheets("sheet1").Cells(j, 5) = Sheets("sheet1").Cells(j, 5) + Sheets("sheet2").Cells(i, 3) End If Next j 10 Next i ' End Sub