两列数据和转置匹配列A值到同一行

Question

我试图做的几乎完全是这一行动要求：

Table of data want to group, transpose matching values same line

虽然答案只是统计了每一列A项有多少个案例。我想重温一下最初的问题:我有两列数据，为了更容易地解释，我将使用名称。我有一个姓氏和家庭成员的清单如下：

COLUMN A  COLUMN B
--------- ---------
Jones     Andy
Jones     Karen
Jones     Jimmy
Jones     Robert
Jones     Susie
Thompson  Henry
Thompson  Beth
Patel     Hardeep
Patel     Sneha
Patel     Radha
Patel     Naveen
Healy     Cillian
Healy     Sinead
Healy     Aiden
Smith     Robert
Smith     Mary
Smith     James
Smith     Christine

我想结束这个-转列表，然后分组的第一排的每一个家庭的姓氏。

    A         B      C        D        E          F
--------- -------  -------  -------  -------    ------- 
Jones     Andy     Karen    Jimmy    Robert     Susie
Thompson  Henry    Beth
Patel     Hardeep  Sneha    Radha    Naveen 
Healy     Cillian  Sinead   Aiden
Smith     Robert   Mary     James    Christine

和最初的海报一样，我不知道每个家庭有多少家庭成员。我想我可以有一个最大的家庭规模(大约50)的循环限制。我还假设我可以使用range.offset()循环遍历列和行，然后对空行执行一些操作，以便在之后进行清理。

我担心这会很慢。我的用例实际上是驻留在许多库存仓库中的工厂部件编号(姓氏)(名)。确实，在我们的系统中，一个部件号可能驻留在多达50个仓库中。

我想听听上面的姓，名字例子的任何建议。

谢谢!约翰

Answer 1

您可以很容易地使用Excel Power Query中的2010+来实现这一点。

在Excel 2016+中(在早期版本中可能有所不同)

PQ编辑器中的表/范围Group Rows

• 中的
• Data→Get&Transform→--
  • 选择列1和

​

​

​

• 添加自定义列并输入公式：

Table.Column([Grouped],"Column2")

​

​

delimiter)

• Split

• 删除"Table“列

• ，单击"List”列-Extract值的双箭头(用分号作为分隔符

的该列的分号)。

这就是你得到的

​

​

下面是由上述代码生成的"M“代码。您可能可以剪切/粘贴这个步骤，而不是执行上述步骤，但是您必须将Table的名称从Table5更改为它真正的名称。

let
    Source = Excel.CurrentWorkbook(){[Name="Table5"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type text}}),
    #"Grouped Rows" = Table.Group(#"Changed Type", {"Column1"}, {{"Grouped", each _, type table [Column1=text, Column2=text]}}),
    #"Added Custom" = Table.AddColumn(#"Grouped Rows", "FirstName", each Table.Column([Grouped],"Column2")),
    #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"Grouped"}),
    #"Extracted Values" = Table.TransformColumns(#"Removed Columns", {"FirstName", each Text.Combine(List.Transform(_, Text.From), ";"), type text}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values", "FirstName", Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv), {"FirstName.1", "FirstName.2", "FirstName.3", "FirstName.4", "FirstName.5"}),
    #"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"FirstName.1", type text}, {"FirstName.2", type text}, {"FirstName.3", type text}, {"FirstName.4", type text}, {"FirstName.5", type text}})
in
    #"Changed Type1"