let
Source = Excel.CurrentWorkbook(){[Name="Tableau3_2"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Id", Int64.Type}, {"Color", type text}, {"Kind", type text}, {"Resul", type logical}}),
#"Added Index" = Table.AddIndexColumn(#"Changed Type", "Index", 0, 1, Int64.Type),
#"Grouped Rows" = Table.Group(#"Added Index", {"Id", "Color"}, {{"All", each _, type table [Id=nullable number, Color=nullable text, Kind=nullable text, Resul=nullable logical, Index=number]}}),
#"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each let
List = [All][Resul]
, First = List.First(List)
, Others = List.Skip(List, 1)
, New = if First = false then List.Transform(Others, each 0) else List.Transform(Others, each 1)
, Out = List.Combine({{1},New})
, Zip = List.Zip({[All][Kind],[All][Resul],Out})
in
Zip),
#"Expanded Custom" = Table.ExpandListColumn(#"Added Custom", "Custom"),
#"Extracted Values" = Table.TransformColumns(#"Expanded Custom", {"Custom", each Text.Combine(List.Transform(_, Text.From), ";"), type text}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values", "Custom", Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv), {"Kind", "Result", "Outcome"}),
#"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Kind", type text}, {"Result", type logical}, {"Outcome", Int64.Type}}),
#"Removed Columns" = Table.RemoveColumns(#"Changed Type1",{"All"})
in
#"Removed Columns"