在多列中查找多个实例

Question

在 Excel 中，我希望在单列中对多列中的一些条目进行排序和过滤。 表格如下所示：

    Day    Product.ID Quantity Time Product.ID Quantity Time Product.ID Quantity Time  
    1/1/17 9987/7     2500     8    11774      500      12   447/77     1400     4 
    2/1/17 9987/7     2350     8    2248/5     600      11   9987/7     1400     4 
    3/1/17 2248/5     3500     7    11774      650      12   447/77     1400     4 
    6/1/17 447/77     5500     8    11774      550      10   447/77     1400     4 
    7/1/17 9987/7     2000     6    2248/5     500      12   11774      1400     4

我想生成一个“查询”，我可以在其中以类似的方式生成报告：

    Product.ID: 9987/7 (drop down menu)
    Day    Quantity Time
    1/1/17 2500     8
    2/1/17 2350     8
    2/1/17 1400     4
    7/1/17 2000     6

从那里我可以推断出我所有的数据和结论。我知道如何检查单个列和INDEX 或VLOOKUP 其他单元格，但我不知道如何这样做。 我无法转置单列上的数据，因为它们来自已编译的表格，其中包含每台机器的生产数据。

谢谢大家

Answer 1

我尝试重新创建您的电子表格 并将结果放入Cells L中。

我写了一些快速的 VBA 代码，可以作为参考来解决您的问题。您可以制作一个按钮来触发过滤功能并让它填充。

Sub filter():
Dim i, j, k As Integer
Dim product_id As String
Dim column_len, row_len As Integer

'clearing content from previous entry
Sheets("Sheet1").Range("L3:N6").ClearContents

'Determining variable for row and columns
product_id = Sheets("Sheet1").Range("M2").Value
column_len = Cells.CurrentRegion.Columns.Count
row_len = Cells.CurrentRegion.Rows.Count
k = 3

'for loop through the columns and row to find the product_id and populate 
'the results box with Date, Product.ID and Quantity

For i = 1 To column_len
    If (Sheets("Sheet1").Cells(1, i).Value = "Product.ID") Then
        For j = 1 To row_len
            If (Sheets("Sheet1").Cells(j, i).Value = product_id) Then
                Sheets("Sheet1").Cells(k, 12).Value = Sheets("Sheet1").Cells(j, 1).Value
                Sheets("Sheet1").Cells(k, 12 + 1).Value = Sheets("Sheet1").Cells(j, i).Value
                Sheets("Sheet1").Cells(k, 12 + 2).Value = Sheets("Sheet1").Cells(j, i + 1).Value
                k = k + 1
            End If
        Next j
    End If
Next i

End Sub