Veja se é isso.
Código: Selecionar todoslet
Fonte = Excel.CurrentWorkbook(){[Name="Tabela1"]}[Content],
SelecionaCol = Table.SelectColumns(Fonte,{"Carimbo de data/hora", "Nome Funcional", "Tem interesse e/ou disponibilidade para participar em quais dias?"}),
AlteraTipoInicio = Table.TransformColumnTypes(SelecionaCol,{{"Carimbo de data/hora", type date}, {"Nome Funcional", type text}, {"Tem interesse e/ou disponibilidade para participar em quais dias?", type text}}),
ExtraiPeriodo = Table.TransformColumns(AlteraTipoInicio, {{"Tem interesse e/ou disponibilidade para participar em quais dias?", each Text.BetweenDelimiters(_, " ", " ", 6, 2)}}),
AlteraTipoPeriodo = Table.TransformColumnTypes(ExtraiPeriodo,{{"Tem interesse e/ou disponibilidade para participar em quais dias?", type text}}),
RenomeiaColunas = Table.RenameColumns(AlteraTipoPeriodo,{{"Carimbo de data/hora", "Data"}, {"Nome Funcional", "Nome"}, {"Tem interesse e/ou disponibilidade para participar em quais dias?", "Período"}}),
AgrupaDataPeriodo = Table.Group(RenomeiaColunas, {"Data", "Período"}, {{"NomeCol", each List.Transform({1..Table.RowCount(_)}, each "Nome " & Text.From(_))}}),
#"Contagem Expandido" = Table.ExpandListColumn(AgrupaDataPeriodo, "NomeCol"),
AlteraTipoDados = Table.TransformColumnTypes(#"Contagem Expandido",{{"NomeCol", type text}}),
AdicionaColIndice = Table.AddColumn(AlteraTipoDados, "Indice", each Number.From(Text.AfterDelimiter([NomeCol], "Nome ")), Int64.Type),
AdicionaColNome =
Table.AddColumn(AdicionaColIndice, "Nome", each let
pData = [Data],
pPeriodo = [Período],
pIndice = [Indice]
in
Table.SelectRows(
RenomeiaColunas,
each [Data]=pData and [Período]=pPeriodo)[Nome]{pIndice-1}, type text),
SelecionaColunas = Table.SelectColumns(AdicionaColNome,{"Data", "Período", "NomeCol", "Nome"}),
Pivoteia = Table.Pivot(SelecionaColunas, List.Distinct(SelecionaColunas[NomeCol]), "NomeCol", "Nome")
in
Pivoteia