Excel 2016 将重复行转换为列答案

【问题标题】：Excel 2016 Convert repeating rows to columnsExcel 2016 将重复行转换为列
【发布时间】：2016-02-25 08:31:22
【问题描述】：

我在一列中有以下数据：

ABNANL2A
940
ABNANL2A
:20:ABN AMRO BANK NV
:25:233835613
:28:19901/1
:60F:C110717EUR1333,58
:61:1107160718D12,75N426NONREF
:86:BEA   NR:5FLM01   16.07.11/15.09 OLENBERG EXPL. BURG,PAS018
:62F:C110718EUR1320,83
-
ABNANL2A
940
ABNANL2A
:20:ABN AMRO BANK NV
:25:233835613
:28:20001/1
:60F:C110718EUR1320,83
:61:1107190719D57,87N446NONREF
:86:GEA               19.07.11/07.58 HILTON - HEATHROW HOUNSL,PAS018
GBP 50,00 1EUR=0,8640055 GBP     KOSTEN EUR2,25 ACHTERAF BEREKEND
:62F:C110719EUR1262,96
-
ABNANL2A
940
ABNANL2A
:20:ABN AMRO BANK NV
:25:233835613
:28:20101/1
:60F:C110719EUR1262,96
:61:1107200720C82,N196NONREF
:86:GIRO  45588 taxservice    TEVEELBET. NR.2
MOTORRYTUIGENB.11 *B         *
:62F:C110720EUR1287,31
-

** 请注意，文本行 (#86) 可以是 1 行或多行，在几个字符后换行。*

原始文件较长，我希望在 Excel 2016 中使用 power query 对其进行转换（如果可能，不使用 M 代码）。

我见过很多转换表格的解决方案，但问题是某些行包含列标题以及数据。基本上之间的所有内容：每行是标题，之后的部分是“值”。

我想把它变成这样的东西：

enter code here

   20             | 25        | 28
 ABN AMRO BANK NV | 233835613 | 19901/1
 ABN AMRO BANK NV | 233835613 | 20001/1
 ABN AMRO BANK NV | 233835613 | 20101/1

剥离列和更改数据没有问题。只需将重复的行转换为列。感谢您的帮助！

【问题讨论】：

标签： excel powerquery tabular excel-2016

【解决方案1】：

您请求的转换部分可以通过以列名为轴来实现。请在下面找到如何识别和提取它们的建议。

导入时最好解决换行问题：http://blog.crossjoin.co.uk/2016/02/16/working-with-csv-files-that-contain-rogue-line-breaks-in-power-query-and-power-bi/ 否则你需要更多的 M 杂技来解决它。

let
    Source = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    #"Changed Type1" = Table.TransformColumnTypes(Source,{{"Spalte1", type text}}),
    #"Added Index" = Table.AddIndexColumn(#"Changed Type1", "Index", 1, 1),
    HeaderSplitPosition = Table.AddColumn(#"Added Index", "SplitHeader", each if Text.Start([Spalte1],1)=":" then List.Last(List.FirstN(Text.PositionOf([Spalte1], ":", Occurrence.All),2)) else ""),
    SeparateHeader = Table.AddColumn(HeaderSplitPosition, "Header", each try Text.Trim(Text.Range([Spalte1],0,[SplitHeader]), ":") otherwise ""),
    SeparateBody = Table.AddColumn(
        SeparateHeader,
        "Value",
        each
            try Text.Range(
                [Spalte1],
                [SplitHeader]+1,
                Text.Length([Spalte1])-[SplitHeader]-1
            )
            otherwise [Spalte1]
        //
    )
in
    SeparateBody

【讨论】：

感谢您的回答！将对其进行调查并做出回应。由于日历已满，请留出一些时间:)
魅力十足！只需将部分代码转换为 Excel 的本地版本（荷兰语而不是德语）。主要是“Spalte1”>“Kolom1”（英文版为“Column1”）。还有“Tabel1”>“Tabel1”。其余代码会自动转换。

【解决方案2】：

Excel 2016 查询代码的荷兰语版本（刚刚翻译，与@ImkeF 相同）：

let
Source = Excel.CurrentWorkbook(){[Name="Tabel1"]}[Content],
 #"Changed Type1" = Table.TransformColumnTypes(Source,{{"Column1", type text}}),
#"Added Index" = Table.AddIndexColumn(#"Changed Type1", "Index", 1, 1),
 HeaderSplitPosition = Table.AddColumn(#"Added Index", "SplitHeader", each if Text.Start([Column1],1)=":" then List.Last(List.FirstN(Text.PositionOf([Column1], ":", Occurrence.All),2)) else ""),
 SeparateHeader = Table.AddColumn(HeaderSplitPosition, "Header", each try Text.Trim(Text.Range([Column1],0,[SplitHeader]), ":") otherwise ""),
 SeparateBody = Table.AddColumn(SeparateHeader, "Value", each try Text.Range([Column1],[SplitHeader]+1,Text.Length([Column1])-[SplitHeader]-1) otherwise [Column1])

in
 SeparateBody

【讨论】：