Страницы: 1
RSS
Замена параметра в формуле ?
 
Уважаемые коллеги, появилась задача которую не могу решить.
Есть несколько сотен файлов каждый под своим именем. Во всех файлах есть по одной таблице со столбцами "Категория" (от К3 до К5) и "Значение" (везде разное), по 10-20 строк.
Из каждого файла надо в сводную таблицу вывести суммы значений для каждой категории.
То есть формула везде одна и та же, но в каждой следующей строке в этой формуле надо указывать соответствующие категорию и название файла-источника.
В приложенном примере это сделано для трёх файлов вручную. Можно ли как-то автоматизировать подстановку в формулу названия файлов и категорий? Хотя бы автоматизировать подстановкку названий.
Изменено: YaKuyu - 01.09.2026 17:24:17
 
Может быть такое через Power Query лучше делать?
 
Код в Power Query:
Код
let
    from = Folder.Contents(путь),
    slct = Table.SelectRows(from, (x)=> not Text.Contains(x[Name], "Сводн") and not Text.Contains(x[Name], "~")),
    f = (x)=> Table.Combine(Excel.Workbook(x, null, false)[Data]),
    trn = Table.TransformColumns(slct, {{"Content",  f}, {"Name", (x)=> Text.SplitAny(x, " ."){1}}}),
    nms = List.Distinct(List.Combine(List.Transform(trn[Content], Table.ColumnNames))),
    exp = Table.ExpandTableColumn(trn[[Name], [Content]], "Content", nms),
    gr = Table.Group(exp, {"Name", "Column1"}, {"Сумма", (x)=> List.Sum(x[Column2]), type number }) 
in
    gr
Шлюхогон42
 
Цитата
написал:
Шлюхогон42
off top:
можете пояснить, плз, какой смысл вложен в Вашу автоподпись?
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
Или макросом
Укажите папку с файлами
Скрытый текст
Согласие есть продукт при полном непротивлении сторон
 
Цитата
написал:
можете пояснить, плз, какой смысл вложен в Вашу автоподпись?
Тот же, что и в аватарку - искренняя любовь к "Южному парку"
Шлюхогон42
Страницы: 1
Читают тему
Наверх