PQ удалить столбцы с прошедшей датой

Пользователь

Сообщений: 2054 Регистрация: 01.07.2018

31.01.2019 16:43:24

здравствуйте. не могли бы показать как можно оставить столбцы, названия которых состоит из сегоднящней даты и дат, которым предстоит быть. на листе второй диапазон с данными какой нужен

Прикрепленные файлы

Книга.xlsx (18.9 КБ)

Aleksei_Zhigulin

Пользователь

Сообщений: 259 Регистрация: 03.12.2018

31.01.2019 16:57:12

artyrH,

Код

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    #"Added Index" = Table.AddIndexColumn(Источник, "Индекс", 0, 1),
    #"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Added Index", {"Индекс"}, "Дата", "Сумма"),
    #"Filtered Rows" = Table.SelectRows(#"Unpivoted Columns", each Date.From([Дата]) >= Date.From(DateTime.FixedLocalNow())),
    #"Pivoted Column" = Table.Pivot(#"Filtered Rows", List.Distinct(#"Filtered Rows"[Дата]), "Дата", "Сумма", List.Sum),
    #"Removed Columns" = Table.RemoveColumns(#"Pivoted Column",{"Индекс"})
in
    #"Removed Columns"

Прикрепленные файлы

Книга.xlsx (17.7 КБ)

Aleksei_Zhigulin

Пользователь

Сообщений: 259 Регистрация: 03.12.2018

31.01.2019 17:05:39

artyrH, но лучше через Table.SelectColumns:

Код

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    final = Table.SelectColumns(Source, List.Select(Table.ColumnNames(Source), each Date.From(_) >= Date.From(DateTime.FixedLocalNow())))
in
    final

Прикрепленные файлы

Книга.xlsx (20.48 КБ)

Изменено: Aleksei_Zhigulin - 31.01.2019 18:40:46

artyrH Пользователь Сообщений: 2054 Регистрация: 01.07.2018	#4 31.01.2019 18:39:29 Aleksei_Zhigulin, спасибо за решения. у меня был вариант через опускание заголовков, транспонирование и фильтр. только фильтр записывается как дата. все хочу научится, как в Вашем втором варианте, формулами строит, но пока только хочу.