在 MS Excel 2010 中查找列中的字符串并获取另一列中的所有相应值

Question

问题-

Column 1  Column 2
------------------
A          AB
B          PR
C          EF
A          GH
A          JK
C          XY
A          UV
D          YZ

需要解决方案

Query  Column 2 column 3 column 4 Column 5
  A         AB       GH       JK    UV
  B         PR
  C         EF       XY
  D         YZ

我需要 Excel 公式，不需要 VBA 或编程。

尝试了索引和匹配公式，它为我提供了相邻列中一个单元格的值，但我需要获取表中提到的所有引用。

需要在不同的工作表中作为摘要。

[这是物料清单 (BOM) 表]

表格中总共有 48000 行和 15 列，而 15000 行是唯一的。我们还需要 15 列中的 2 列来进行汇总。有些单元格被引用了 20 次或更多次，因此需要填充所有这些值不同的列。

我尝试从中获取此数据的工作表已使用 MS Query 链接到另一个源文件。

PS : 很抱歉在原始查询中没有提供任何信息。

Answer 1

此代码将创建一个名为 RowsToColumns 的新工作表，其中包含您的汇总数据。

Sub PostRowsToColumns()
Dim X As Long, Y As Long, MyArr As Variant
ActiveSheet.Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = "RowsToColumns"
Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Sort Range("A1")
Y = 2
For X = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & X).text <> Range("A" & X).Offset(-1, 0).text Then
        MyArr = Application.Transpose(Range("B" & X).Resize(WorksheetFunction.CountIf(Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row), Range("A" & X)), 1))
        Range("D" & Y) = Range("A" & X).text
        If Range("B" & X).Resize(WorksheetFunction.CountIf(Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row), Range("A" & X)), 1).Rows.Count > 1 Then
            Range("E" & Y).Resize(1, UBound(MyArr)) = MyArr
        Else
            Range("E" & Y) = MyArr
        End If
        Y = Y + 1
    End If
Next
Columns("A:C").Delete Shift:=xlToLeft
End Sub

Answer 2

假设您的第 1 列是 A2:A9 并且第 2 列是 B2:B9 然后具有从 A11 开始的第 1 列值的“唯一列表”，您可以在 B11 中使用此公式，并通过 CTRL 确认+SHIFT+ENTER并向下复制

=IFERROR(INDEX($B$2:$B$9,SMALL(IF($A$2:$A$9=$A11,ROW($A$2:$A$9)-ROW($A$2)+1),COLUMNS($B11:B11))),"")

您可以扩展更大的范围（或其他工作表中的数据），但如果您有大量此类公式，则可能会大大减慢您的工作簿

在此处查看示例文件：

https://www.dropbox.com/s/f1hqut8s6u0n7ln/Code%20List.xlsx?dl=0