Guru do Excel e Power BI

let
    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