И Вам здравствуйте. Вариант с помощью Power Query. Исходные таблицы отформатированы как "умные" (Вставка -- Таблица). Добавляете листы, добавляете данные в таблицы, затем правой кнопкой мыши на итоговой таблице -- Обновить А почему Вы так странно среднее считаете?
И Вам здравствуйте. Вариант с помощью Power Query. Исходные таблицы отформатированы как "умные" (Вставка -- Таблица). Добавляете листы, добавляете данные в таблицы, затем правой кнопкой мыши на итоговой таблице -- Обновить А почему Вы так странно среднее считаете?Pelena
let from = Excel.CurrentWorkbook(), filtr = Table.SelectRows(from, each Text.Contains([Name],"Таблица"))[Content], tbl = Table.Combine(filtr), format = Table.TransformColumns(tbl,{"Дата", each Date.MonthName(_) & " " & Text.From(Date.Year(_))}), to = Table.Group(format, "Дата", {"Среднее", each Number.Round(List.Average([#"Кол-во"]),2)}) in to
[/vba]
[vba]
Код
let from = Excel.CurrentWorkbook(), filtr = Table.SelectRows(from, each Text.Contains([Name],"Таблица"))[Content], tbl = Table.Combine(filtr), format = Table.TransformColumns(tbl,{"Дата", each Date.MonthName(_) & " " & Text.From(Date.Year(_))}), to = Table.Group(format, "Дата", {"Среднее", each Number.Round(List.Average([#"Кол-во"]),2)}) in to
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
