Цитата |
---|
TankSpb написал: я как-то так понял |
Тёзка, а так не проще?
Код |
---|
let
Source = Excel.CurrentWorkbook(){[Name="Лист1"]}[Content],
base = Source,
getSubTable = (base as table, keyWords as list) as table =>
let
keyWordsLength = List.Count(keyWords),
skipedRows = Table.Skip(base, each not (List.Count(List.Intersect({Record.FieldValues(_), keyWords})) = keyWordsLength)),
setHeader = Table.PromoteHeaders(skipedRows, [PromoteAllScalars=true])
in
Table.SelectColumns(setHeader, keyWords),
result = getSubTable(Source, {"Добавь меня", "Найди меня"})
in
result |
Updated
Не удержался протестировал. Создал таблицу на 15 столбцов без одной строки на предельное количество. Искомые названия столбцов нужной подтаблицы разместил в строке 900000 в 7 и 8 столбцах, ниже них данные формулы СТРОКА(). Код Андрея отработал за 31 секунду, мой за 8 секунд.
Цитата |
---|
TankSpb написал: на выходе то что хотел! ) |
А почему бы тогда и не дать теме такое название, чтобы было сразу понятно, что вы хотите