let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Источник1 = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    Объединение = Table.Buffer(Table.NestedJoin(Источник, {"Дата события"}, Источник1, {"Дата события"}, "Таблица2", JoinKind.LeftOuter)),
    k = List.Max(List.Accumulate(Объединение[Таблица2], {}, (state, current) =>  state & {Table.RowCount(current)} )),
    l = List.Buffer(List.Transform(List.Zip({List.Sort(List.Repeat({1..k},2)), List.Repeat({"_№ инцидента","_Время события"},k)}), each Text.From( _{0}) & _{1})),
    Трансф = Table.TransformColumns(
        Объединение,
        {{
            "Таблица2",
            (t) =>
            [
                a = Table.SelectColumns(t,{"№ инцидента","Время события"}),
                s =  if List.Count(List.Combine(Table.ToRows(a))) < k*2 then List.Combine(Table.ToRows(a)) & List.Repeat({null}, k*2 - List.Count(List.Combine(Table.ToRows(a)))) else List.Combine(Table.ToRows(a)),
                r = Table.FromRecords({Record.FromList(s,l)})
            ][r]
        }}),
    Развертывание = Table.ExpandTableColumn(Трансф, "Таблица2", l, l),
    Результат = Table.TransformColumnTypes(Развертывание, List.Transform(Table.ColumnNames(Развертывание), each  if Text.Contains(_, "Время") then {_, type time} else if Text.Contains(_, "Дата")  then {_, type date}  else {_, type text}))
in
    Результат