Csv.Document(
        Web.Contents(
            "https://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=430495&action=download"),
        [Encoding=65001])

Table.TransformColumnTypes(Step, let n=Table.ColumnNames(Step) in {{n{0}, type text}} & List.Transform(List.Skip(n,1), each {_, type number}))

let
    Delimiters = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Source = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    Decart = Table.Join(Source, {}, Delimiters, {}),
    Added = Table.AddColumn(Decart, "Номер", each Text.BeforeDelimiter( [До], [Список разделителей] ), Text.Type),
    TextLength = Table.AddColumn(Added, "Длина", each Text.Length([Номер]), Int64.Type),
    GroupedRows = Table.Group(TextLength, {"До"}, {{"таб", each Table.FromRecords({Table.Min(_, "Длина")})}}),
    Out = Table.Combine( GroupedRows[таб], type table [До=text, Номер=text] )
in
    Out

=ИНДЕКС(
    B2:K9;
    ПОИСКПОЗ(C15;ЕСЛИОШИБКА(--ЛЕВСИМВ(ПОДСТАВИТЬ(A2:A9;"свыше ";"");2);0);1);
    ЕСЛИОШИБКА(ПОИСКПОЗ(B15;--СЖПРОБЕЛЫ(ПРАВСИМВ(B$1:K$1;3));1);0)+1)

let
    Source = Folder.Files("E:\BD"),
    Custom = Table.AddColumn(Source, "Пользовательский", each Odbc.Query("Driver={Microsoft Access dBASE Driver (*.dbf, *.ndx, *.mdx)};Dbq="&Text.Start([Folder Path],Text.Length([Folder Path])-1), "Select * From ["&Text.BeforeDelimiter([Name],".")&"]")),
    SelectedColumns = Table.SelectColumns(Custom,{"Пользовательский", "Name"}),
    Expanded = Table.ExpandTableColumn(SelectedColumns, "Пользовательский", Table.ColumnNames(SelectedColumns{0}[Пользовательский]))
in
    Expanded

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    MergedColumns = Table.CombineColumns(Source,{"Товар", "Склады", "Кол-во"},(x)=>Table.FromColumns( List.Transform(x, each List.Transform( Text.Split(_,";"), each try Number.From(_) otherwise _)),{"Товар", "Склады", "Кол-во"}),"t"),
    Out = Table.FillDown(Table.Combine(MergedColumns[t], type table [Товар=text, Склады=number, #"Кол-во"=number]),{"Товар"})
in
    Out

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ИзмененныйТип = Table.TransformColumnTypes(Источник,{{"дата размещения", type date}, {"дата выполнения", type text}}),
    ДобСписокДат = Table.AddColumn(ИзмененныйТип, "Список", each List.Dates( Date.AddDays([дата размещения],1), Number.From( List.Max(ИзмененныйТип[дата размещения]) - List.Min(ИзмененныйТип[дата размещения]) ) + 100, #duration(1, 0, 0, 0) ), type list),
    СписокТолькоРабДней = Table.ReplaceValue(ДобСписокДат,each [#"срок оплаты (рабочих дней)"],0,(a,b,c)=>List.Difference( List.Select(a, (x) => Date.DayOfWeek(x) < 5), Праздники){b-1} ,{"Список"})
in
    СписокТолькоРабДней

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    SelectedColumns = Table.SelectColumns(Source,{"Столбец1", "Столбец2", "Столбец3", "Столбец4"}),
    RemovedTopRows = Table.Skip(SelectedColumns,1),
    PromotedHeaders = Table.PromoteHeaders(RemovedTopRows, [PromoteAllScalars=true]),
    ChangedType = Table.TransformColumnTypes(PromotedHeaders,{{"Номенклатурная группа", type text}, {"Сумма плана ", Int64.Type}, {"% наценки", type number}, {"Наценка", type number}}),
    Custom = Table.AddColumn(ChangedType, "Регион", each SelectedColumns[Столбец1]{0}, Text.Type)
in
    Custom

Коэф.ответов = var t = DIVIDE([Кол-во ответов],[Кол-во отправленных предложений]) 
return IF( NOT( ISBLANK( t ) ), 1 - t )