let
Zdroj = Excel.CurrentWorkbook(){[Name="data"]}[Content],
#"Změněný typ" = Table.TransformColumnTypes(Zdroj,{{"Kč", type number}}),
#"Spojená data" = Table.CombineColumnsToRecord(#"Změněný typ", "data", {"HODINY ", "Kč"}),
#"Převedený sloupec" = Table.Pivot(#"Spojená data", List.Distinct(#"Spojená data"[SLOŽKA]), "SLOŽKA", "data"),
Složky = List.Distinct(#"Změněný typ"[SLOŽKA]),
Rozbalit = List.Accumulate(Složky, #"Převedený sloupec",
(tab, sl) => Table.ExpandRecordColumn(tab, sl, {"HODINY ", "Kč"}, {sl & " (hod.)", sl & " (Kč)"})),
#"Odebrané ostatní sloupce" = Table.SelectColumns(Rozbalit,{"ZAMĚSTNANEC", "měsíc"}
& List.Transform(Složky, each _ & " (hod.)")
& List.Transform(Složky, each _ & " (Kč)"))
in
#"Odebrané ostatní sloupce"
?citovat