ADDCOLUMNS(
    DISTINCT(
       SELECTCOLUMNS(INDEX, "Индексы", [Index]
   ), НоваяЖелткаяКолонка,
Sum(Приход[Количество])

' обработка запроса PQ
StartRefresh:
         On Error GoTo ErrorHandler3
         ' Insert code that might generate an error here
'В модуле запускаем обновление запросов PQ
Module1: Refresh

         ' Exit Sub
ErrorHandler3:
         ' Insert code to handle the error here

                                If Err.Number Then
                                    'Повторный запрос
                                    Dim answer1 As Integer
                                    answer1 = MsgBox("Повторная попытка?", vbQuestion + vbYesNo + vbDefaultButton2, "Повторная попытка?")
                                    If answer1 = vbYes Then
                                        GoTo StartRefresh
                                    Else
                                        GoTo Finish
                                    End If
                                End If
           Resume Next

Finish:

Public Sub Refresh()

SnyatZaschituOdinParol

    For Each objConnection In ThisWorkbook.Connections
        'Get current background-refresh value
        bBackground = objConnection.OLEDBConnection.BackgroundQuery
        'Temporarily disable background-refresh
        objConnection.OLEDBConnection.BackgroundQuery = False
        'Refresh this connection
        objConnection.Refresh
        'Set background-refresh value back to original value
        objConnection.OLEDBConnection.BackgroundQuery = bBackground
    Next

    'MsgBox "Finished refreshing all data connections"

PostavitZaschituOdinParol
'UserForm1.Show vbModel

End Sub

ComTotal = Table.AddColumn(Table.Buffer(#"Развернутый элемент Выбытие"), "ComTot", (OT)=>(
List.Generate(
()=>
[i=Number.From(List.Min(OT[Join][Value])  ) , total=OT[Join][Сумма]{0} , j=0, ost = total / OT[Выбытие][Сумма]{0} , OstTotal=total/OT[Выбытие][Сумма]{0}, maxT =0]   , 
each [i]<=Number.From(List.Max(OT[Join][Value]) ),
each [ 
i=[i]+1 , 
j = [j]+1, 
total=List.Sum({Number.From(OT[Join][Сумма]{j}) , Number.From([total])}) ,
ost = total/OT[Выбытие] ,
OstTotal=List.Sum({[OstTotal],[ost]}),
maxT =  if i=Number.From (List.Max(OT[Join][Value])) then (OstTotal) else 0],

each [ 
//ostT=[OstTotal],
//ost = [ost],
//maxT =  [
maxT//],
//i=Date.From([i]) ,
//Классификатор=OT[Классификатор] 
]

List.Generate(
()=>
[i=0],
each [i]<=10,
each i
)

let
    tabl1=Table.Buffer(Таблица1),
    tabl2=Table.Buffer(Таблица2),
    Источник = Table.NestedJoin(tabl1, {"Груз"}, tabl2, {"Груз"}, "tabl2", JoinKind.LeftOuter),
    #"Развернутый элемент Таблица2" = Table.ExpandTableColumn(Источник, "tabl2", {"Цена"}, {"Цена"})
in
    #"Развернутый элемент Таблица2"

let
    Источник = Table.Buffer(Таблица1),
    Таблица2Bf = Table.Buffer(Таблица2),
    #"Добавлен пользовательский объект" = Table.AddColumn(Источник, "NewTable", (OT)=>

( Table.NestedJoin(Table.FromRecords({OT}), {"Груз"}, 
  Таблица2Bf, {"Груз"}, "TMP", JoinKind.LeftOuter)[TMP]{0} ) [Цена]{0}

)
in
    #"Добавлен пользовательский объект"

let
    tabl1=Table.Buffer(Таблица1),
    tabl2=Table.Buffer(Таблица2),
    Источник = Table.AddColumn(tabl1, "Цена",  (OT)=>
Table.SelectRows(tabl2, (IT)=>IT[Груз]=OT[Груз]){0}[Цена]
)
in
    Источник

let
    Источник = Table.Buffer(Таблица1),
    Таблица2Bf = Table.Buffer(Таблица2),
    #"Добавлен пользовательский объект" = Table.AddColumn(Table.Buffer(Источник), "NewTable", (OT)=>
List.Buffer(Таблица2Bf[Цена]){
List.PositionOf(Таблица2Bf[Груз], OT[Груз])
}
)
in
    #"Добавлен пользовательский объект"

let
    Источник = Table.Buffer(Таблица1),
    Таблица2Bf = Table.Buffer(Таблица2),
    #"Добавлен пользовательский объект" = Table.AddColumn(Table.Buffer(Источник), "NewTable", (OT)=>
List.Contains( List.Buffer(Таблица2Bf[Груз]), OT[Груз])
)
in
    #"Добавлен пользовательский объект"

Record.Field(_, "КакаяТоКолонка")

(TABLE as table, OLDCOLUMN as text, NEWCOLUMN as text, CONDITION as function)=>

let
    RESULT = 
Table.RenameColumns(
   Table.RemoveColumns(
         Table.AddColumn(TABLE, "TEMPColumn", each (if CONDITION=true then Record.Field(_, NEWCOLUMN) else Record.Field(_, OLDCOLUMN ))  ),
   {OLDCOLUMN, NEWCOLUMN}
   ),
{"TEMPColumn", OLDCOLUMN })
 
 
in
    RESULT

= ReplaceColumn(ИзмененТип,"Старый", "Новый", each([Новый]-[Старый] = 1))

= Table.RenameColumns(
   Table.RemoveColumns(
      Table.AddColumn(
         Table.AddColumn(ISTO4NIK, "NewColumn", each "NewValue"),
      "TEMPColumn", each (if [NewColumn]<>null then [NewColumn] else [OldColumn])
      )
   {"OldColumn","NewColumn"}
   ),
{{"TEMPColumn", "OldColumn"}}) 

= Table.RemoveColumns(
   Table.ReplaceValue(
         Table.AddColumn(ISTO4NIK, "NewColumn", each "NewValue"),
   each [OldColumn], each (if [NewColumn]<>null then [NewColumn] else [OldColumn]), 
   Replacer.ReplaceValue,   {"OldColumn"}),
{"NewColumn"}
)

Переменная = 
Table.Join (
   ТаблИсточн1,
         {"Колонка1", "Колонка2", 
                     ("Колонка3" // или, если Колонка3=null, то любое значение (Join опускает параметр и ищет только по 2-ум
           ) },
   ТаблИсточн2, 
   {"Колонка5","Колонка6","Колонка7"})