= Table.AddColumn(#"Измененный тип", "Пользовательская", let n = List.Max(#"Измененный тип"[Значение]) in each n )

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    Replaced = Table.ReplaceValue(Source,0,0,(x,y,z)=>null,{Table.ColumnNames(Source){List.Count( List.RemoveLastN( Table.ToRows( Source ){0}, each _=null ) )-1}})
in
    Replaced

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