Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - PQ table.column 3 kolumny w jednym kroku

Pawel07 · Starszy Forumowicz Wersja: Win Office 2016 Posty: 35

Witam,

Jak taki efekt:

Kod:

let
Źródło = Excel.CurrentWorkbook(){[Name="source"]}[Content],
PL = Table.AddColumn(Źródło, "PL", each [kod]&"-"&[pol]),
EN = Table.AddColumn(PL, "EN", each [kod]&"-"&[eng]),
DE = Table.AddColumn(EN, "DE", each [kod]&"-"&[ger])
in
DE

uzyskać w jednym kroku ?

Próbowałem tak:

Kod:

let
Źródło = Excel.CurrentWorkbook(){[Name="source"]}[Content],
#"Dodano kolumnę niestandardową" = Table.AddColumn(Źródło, "PL1", each [kod]&"-"&[pol])&
Table.AddColumn(Źródło, "EN1", each [kod]&"-"&[pol])&
Table.AddColumn(Źródło, "DE1", each [kod]&"-"&[pol])
in
#"Dodano kolumnę niestandardową"

ale to nie wychodzi

Dziękuje z góry za pomoc

pq.xlsx

Pobierz Plik ściągnięto 41 raz(y) 24.09 KB

Bill Szysz · Wysłany: 19-04-2023, 20:40

Dwa sposoby (oczywiście istnieje więcej)
1: prostszy

Kod:

let
Source = Excel.CurrentWorkbook(){[Name="source"]}[Content],
AddRecColumn = Table.AddColumn(Source, "Record", each
[PL = [kod] & "-" & [pol],
EN = [kod] & "-" & [eng],
DE = [kod] & "-" & [ger]
]),
Result = Table.ExpandRecordColumn(AddRecColumn, "Record", {"PL", "EN", "DE"})
in
Result

2: bardziej elastyczny

Kod:

let
Headers = {"PL", "EN", "DE", "FR", "ES"},
Values = {"-tak", "-yes", "-ja", "-oui", "-si"},

Source = Excel.CurrentWorkbook(){[Name="source"]}[Content],
Result = List.Accumulate({0..List.Count(Headers)-1}, Source, (st, curr) => Table.AddColumn(st, Headers{curr}, each [kod] & Values{curr} ) )
in
Result

W tym drugim sposobie nie potrzebujesz nawet kolumn pol eng i ger a i modyfikacja (dodawanie/ usuwanie) jest łatwiejsze

Pawel07 · Starszy Forumowicz Wersja: Win Office 2016 Posty: 35

Dziękuję

Pozdrawiam

PS