let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Email", type text}, {"Choice 1", type text}, {"Choice 2", type text}, {"Choice 3", type text}, {"Choice 4", type text}, {"Choice 5", type text}, {"Choice 6", type text}, {"Choice 7", type text}, {"Choice 8", type text}}),
#"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Changed Type", {"Email"}, "Attribute", "Value"),
#"Removed Columns" = Table.RemoveColumns(#"Unpivoted Other Columns",{"Attribute"}),
#"Reordered Columns" = Table.ReorderColumns(#"Removed Columns",{"Value", "Email"}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Reordered Columns", "Value", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Value.1", "Value.2"}),
#"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Value.1", type text}, {"Value.2", Int64.Type}}),
#"Sorted Rows" = Table.Sort(#"Changed Type1",{{"Value.2", Order.Ascending}}),
#"Merged Columns" = Table.CombineColumns(Table.TransformColumnTypes(#"Sorted Rows", {{"Value.2", type text}}, "en-US"),{"Value.1", "Value.2"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Topic")
in
#"Merged Columns"
The steps involved:
Bookmarks