let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Замененное значение" = Table.ReplaceValue(Источник,null,"",Replacer.ReplaceValue,{"10.09.2018", "11.09.2018"}),
#"Пониженные заголовки" = Table.DemoteHeaders(#"Замененное значение"),
#"Добавлен индекс" = Table.AddIndexColumn(#"Пониженные заголовки", "Индекс", 2, 1),
#"Столбец с выполненным целочисленным делением" = Table.TransformColumns(#"Добавлен индекс", {{"Индекс", each Number.IntegerDivide(_, 2), Int64.Type}}),
#"Сгруппированные строки" = Table.Group(#"Столбец с выполненным целочисленным делением", {"Индекс"}, {{"Столб1", each Text.Combine(_[Column1],"="), type text}, {"Столб2", each Text.Combine(_[Column2],"="), type text}, {"Столб3", each Text.Combine(_[Column3],"="), type text}}),
#"Удаленные столбцы" = Table.RemoveColumns(#"Сгруппированные строки",{"Индекс"}),
#"Разделить столбец по разделителю" = Table.SplitColumn(#"Удаленные столбцы","Столб1",Splitter.SplitTextByDelimiter("=", QuoteStyle.Csv),{"Столб1.1", "Столб1.2"}),
#"Измененный тип" = Table.TransformColumnTypes(#"Разделить столбец по разделителю",{{"Столб1.1", type text}, {"Столб1.2", type text}}),
#"Повышенные заголовки" = Table.PromoteHeaders(#"Измененный тип", [PromoteAllScalars=true]),
#"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Повышенные заголовки", {"ФИО", "Перевозчик"}, "Атрибут", "Значение"),
#"Разделить столбец по разделителю1" = Table.SplitColumn(#"Другие столбцы с отмененным свертыванием","Атрибут",Splitter.SplitTextByDelimiter("=", QuoteStyle.Csv),{"Атрибут.1", "Атрибут.2"}),
#"Измененный тип1" = Table.TransformColumnTypes(#"Разделить столбец по разделителю1",{{"Атрибут.1", type date}, {"Атрибут.2", type text}}),
#"Разделить столбец по разделителю2" = Table.SplitColumn(#"Измененный тип1","Значение",Splitter.SplitTextByDelimiter("=", QuoteStyle.Csv),{"Значение.1", "Значение.2"}),
#"Измененный тип2" = Table.TransformColumnTypes(#"Разделить столбец по разделителю2",{{"Значение.1", type text}, {"Значение.2", type text}}),
#"Переименованные столбцы" = Table.RenameColumns(#"Измененный тип2",{{"Атрибут.1", "Дата"}, {"Атрибут.2", "День недели"}, {"Значение.1", "Номер авто"}, {"Значение.2", "Тип авто"}}),
#"Сортированные строки" = Table.Sort(#"Переименованные столбцы",{{"Дата", Order.Ascending}}),
#"Переупорядоченные столбцы" = Table.ReorderColumns(#"Сортированные строки",{"Дата", "ФИО", "Перевозчик", "День недели", "Тип авто", "Номер авто"})
in
#"Переупорядоченные столбцы" |