Here is the Mcode for a Power Query Solution.
Code:
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Split Column by Delimiter" = Table.SplitColumn(Source, "Column1", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3", "Column1.4", "Column1.5", "Column1.6"}),
#"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Split Column by Delimiter", {}, "Attribute", "Value"),
#"Removed Columns" = Table.RemoveColumns(#"Unpivoted Columns",{"Attribute"})
in
#"Removed Columns"
[table="class:thin_grid"]
[tr][td]
v[/td]
[td="bgcolor:#ECF0F0, align:center"]
A[/td]
[/tr][tr][td="bgcolor:#ECF0F0, align:center"]
1[/td]
[td="bgcolor:#FFFFFF, align:CENTER"]
Value[/td]
[/tr]
[tr][td="bgcolor:#ECF0F0, align:center"]
2[/td]
[td="bgcolor:#FFFFFF, align:CENTER"]
Bob[/td]
[/tr]
[tr][td="bgcolor:#ECF0F0, align:center"]
3[/td]
[td="bgcolor:#FFFFFF, align:CENTER"]
Carl[/td]
[/tr]
[tr][td="bgcolor:#ECF0F0, align:center"]
4[/td]
[td="bgcolor:#FFFFFF, align:CENTER"]
Kevin[/td]
[/tr]
[tr][td="bgcolor:#ECF0F0, align:center"]
5[/td]
[td="bgcolor:#FFFFFF, align:CENTER"]
Bill[/td]
[/tr]
[tr][td="bgcolor:#ECF0F0, align:center"]
6[/td]
[td="bgcolor:#FFFFFF, align:CENTER"]
Olly[/td]
[/tr]
[tr][td="bgcolor:#ECF0F0, align:center"]
7[/td]
[td="bgcolor:#FFFFFF, align:CENTER"]
Steve[/td]
[/tr]
[/table]