Добавить данные с нулевыми значениями в таблицу

Дата: Понедельник, 23.09.2019, 14:50 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Проблема следующая:
Есть таблица с данными по продажам нескольких тысяч магазинов.
Но магазин продаёт не каждый день.
Задачка состоит в том, что бы в день когда магазин не продаёт, он появился в этой табличке, но с нулём (на текущий момент его просто нет в дни отсутствия продаж).

есть идеи как реализовать?

Kostya_Ye

Дата: Понедельник, 23.09.2019, 14:58 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 271

Репутация: 228 ±

Замечаний: 0% ±

Excel 2016

Anton2201, а файл пример будет ?

Дата: Понедельник, 23.09.2019, 15:01 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Kostya_Ye, да приложил

К сообщению приложен файл: 4557626.xlsx (21.7 Kb)

Дата: Понедельник, 23.09.2019, 15:36 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1398

Репутация: 364 ±

Замечаний: 0% ±

365 Beta Channel

PQ: [vba]

Код

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    types = Table.TransformColumnTypes(from,{{"Код магазина", type text}, {"Дата", type date}, {"Основная услуга Кол-во, шт.", Int64.Type}}),
    list1 = List.Distinct(types[Код магазина]),
    pivot = Table.Pivot(types, list1, "Код магазина", "Основная услуга Кол-во, шт.", List.Sum),
    list2 = List.Skip(Table.ColumnNames(pivot),1),
    replace = Table.ReplaceValue(pivot,null,0,Replacer.ReplaceValue,list2),
    to = Table.UnpivotOtherColumns(replace, {"Дата"}, "Атрибут", "Значение")
in
    to

[/vba]

К сообщению приложен файл: 4309046.xlsx (71.2 Kb)

Сообщение отредактировал прохожий2019 - Понедельник, 23.09.2019, 15:43

Дата: Понедельник, 23.09.2019, 15:43 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

прохожий2019, Спасибо!
А как мне этот макрос перенести на мой полный файл (за весь месяц и с полным набором магазинов)

Дата: Понедельник, 23.09.2019, 15:47 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 1398

Репутация: 364 ±

Замечаний: 0% ±

365 Beta Channel

В смысле как перенести - зайти в редактор PQ и вставить код, только имя таблицы привести корректное

Дата: Понедельник, 23.09.2019, 16:18 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

прохожий2019, ок, понял. Не разу в этом редакторе не работал. попробую

Дата: Понедельник, 23.09.2019, 16:31 | Сообщение № 8

Группа: Проверенные

Ранг: Старожил

Сообщений: 1398

Репутация: 364 ±

Замечаний: 0% ±

365 Beta Channel

Тыц:

К сообщению приложен файл: 6213030.jpg (28.5 Kb)

Сообщение отредактировал прохожий2019 - Понедельник, 23.09.2019, 16:32

Дата: Понедельник, 23.09.2019, 17:11 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

прохожий2019, жду когда придёт админ и разрешит установить надстройку excel....

Дата: Понедельник, 23.09.2019, 17:40 | Сообщение № 10

Группа: Проверенные

Ранг: Старожил

Сообщений: 1398

Репутация: 364 ±

Замечаний: 0% ±

365 Beta Channel

У вас же 2016 - должен быть в наличии

Дата: Вторник, 24.09.2019, 14:57 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

прохожий2019, 2013й к сожалению...

Pelena

Дата: Вторник, 24.09.2019, 15:46 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 19521

Репутация: 4634 ±

Замечаний: ±

Excel 365 & Mac Excel

Обычной сводной не вариант?

К сообщению приложен файл: 6841796.xlsx (65.1 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Пятница, 27.09.2019, 12:07 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Pelena, Вариант. Кто же знал что галочка "отображать пустые элементы" решит мой вопрос....
Спасибо!

прохожий2019, ваш вариант тоже мне помог, но теперь в сводной наверное буду деть. Спасибо!