let
    intervalsToText = (items) =>
    let
        addLocalId = Table.AddIndexColumn(Table.FromColumns({items}), "local"),
        addDiff = Table.AddColumn(addLocalId, "dif", each [Column1] - [local]),
        grouped = Table.Group(addDiff, {"dif"}, {"temp", (sub) => 
            if Table.RowCount(sub) > 2 then
                Text.From(List.First(sub[Column1]))  & "-" & Text.From(List.Last(sub[Column1]))
            else
                Text.Combine(List.Transform(sub[Column1], Text.From), ",")
        })
    in
        Text.Combine(grouped[temp], ","),
    Source = Table.Distinct(Table1 & Table2),
    groupNames = List.Transform({"1".."6"}, each "A" & _),
    addId = Table.AddIndexColumn(Source, "id"),
    calcer = Table.Group(addId, groupNames, {"temp", (sub) => 
    let
        ids = sub[id]
    in
        Table.AddColumn(sub, "Индексы", each intervalsToText(List.RemoveMatchingItems(ids, {[id]})))
    }),
    return = Table.ExpandTableColumn(calcer, "temp", List.RemoveItems(Table.ColumnNames(addId), groupNames) & {"Индексы"})
in
    return

Table.TransformColumns(Table.SelectRows(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], each ([#"№"] <> null and [#"№"] <> "№")), List.Transform( {"Время снимка  (план)", "Время снимка  (факт)"}, each {_, (x)=> let t = List.Transform(Text.Split(x, ":"),Number.From) in #duration(Number.IntegerDivide(t{0}, 60 * 24), Number.IntegerDivide(t{0}, 60), Number.Mod(t{0}, 60), t{1}), type duration} ) )

Select tbase.[Дата], tbase.[Наименование], tsource.[Сумма]
From (
    Select tdate.[Дата], tname.[Наименование] From
        (Select Distinct [Дата] From [База$]) tdate, (Select Distinct [Наименование] From [База$]) tname
    ) tbase 
Left Join [База$] tsource
    On (tbase.[Дата] = tsource.[Дата] And tbase.[Наименование] = tsource.[Наименование])
Order By tbase.[Дата], tbase.[Наименование]

let 
  var = 123,
  test = var = "var" // вы уверены, что имя определения var равно его текстовому написанию?
in
  test

NEWCOLUMN = "FieldName", // это текстовое имя поля, а не его представление на уровне определений
test = Table.AddColumn(Source, (_) => Record.Field(_, NEWCOLUMN) + 3) // прибавляем значению поля, получаемому по его текстовому имени, текущей строки, задаваемой _, где значение поля извлекается методом Record.Field: первый аргумент определение записи, второй аргумент текстовое имя поля

// определяем функцию используемую в функции, в которой есть итератор над элементами
fn = (x) => Record.FieldCount(x),
// в данном случае AddColumn выполняет итерацию по строкам (записям record) и ждёт функцию с одним аргументом типа record
result1 = Table.AddColumn(Source, "field count", fn),
// а можно и неявной функцией итерации у которой аргумент _
result2 = Table.AddColumn(Source, "field count", each Record.FieldCount(_)),
// а можно указать функцию анонимно без определения имени
result3 = Table.AddColumn(Source, "field count", (x) => Record.FieldCount(x))