匹配不同图纸VBA上某个范围的值

问题描述

我有两个表，每个表都在不同的工作表上。第一个表是要填充的表。它包含4列，第一列包含代码，即：“ 10007”，“ 10009”，第二列包含产品类型，即：“ H10”，“ H12”等，每种产品都使用一种面粉，第三列是对此类产品的需求，最后一列是消费量，这是我试图获得的。

第二张表指示可以对需求列上的哪些值求和以获得每种产品的消耗量。 示例：

表1：

Week 1   CODE     Flour      Consumption       Product     Demand

          1007      GF                            H102       152
          1008      Regular                       H104        450
                                                 H105        256

表2

  Product    Code     Flour
   H102       1007     GF
   H104       1007     GF
   H105       1008     Regular 

例如，如果我要从表1中查找1007的消耗量，那么如果产品在第二个表上匹配，则我必须对需求求和。因此，基本上在第二张表上您会发现它像一个指南，它告诉您产品x是由代码x和面粉x组成的，因此，当您转到第一周时，您的消费将基于它与指南的匹配方式。因此，由于H102和H104具有相同的代码，因此第一次消耗应为152 + 450，而第二次消耗应仅为256。

我正在使用range来查看代码是否将尝试将表1的值与表2匹配。

    Dim i As Integer

   For i = 14 To 76


If Cells(i,23).Value = Worksheets("Products").Cells(15,8).Value And Cells(i,29).Value = Worksheets("Products").Range("B15:B36").Value And Cells(i + 1,29).Value <> Worksheets("Products").Range("B15:B36").Value And Cells(i + 2,29).Value <> Worksheets("Products").Range("B15:B36").Value Then

Cells(i,25).Value = Cells(i,28).Value

ElseIf Cells(i,29).Value = Worksheets("Products").Range("B15:B36") And Cells(i + 1,29).Value = Worksheets("Products").Range("B15:B36") And Cells(i + 2,29).Value <> Worksheets("Products").Range("B15:B36") Then

Cells(i,28).Value + Cells(i + 1,29).Value = Worksheets("Products").Range("B15:B36") Then

Cells(i,28).Value + Cells(i + 2,28).Value

  End If
 Next i

其中单元格（i，23）是带有代码的列，而单元格（15,8）是带有我首先要在第二张表上查找的修复产品的单元格。因此，如果第一个产品属于表1上的代码，但第二个和第三个产品不属于表1的代码，则只需编写相同的需求即可。如果第一个和第二个产品属于该代码，而第三个产品不属于该代码，则只需将第一个和第二个需求求和，依此类推。我也尝试了for循环，但由于它正在逐个单元地评估，所以它不起作用，我需要它来评估整个范围。

我还尝试使用Vlookup，因此它将在表2上查找表1的产品类型。因此，如果表1上的代码=属于表1上产品的代码，则执行x

 For i = 14 To 76
If Cells(i,23).Value = Application.WorksheetFunction.VLookup( _
Cells(i,29).Value,Worksheets("Products").Range("B15:H36"),7,False) Then
    Cells(i,28).Value
End If
Next i

其中（I，23）是表1（1007）上的代码，（i，29）是表1（H102）上的产品类型，（i，25）是消耗量，（i，28）是需求。这仅适用于其余产品不共享相同代码，因此不需要总和的情况。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）