Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Превратите таблицу 1 в таблицу 2 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Power-надстройкам » Превратите таблицу 1 в таблицу 2 (Power Qwery)
Превратите таблицу 1 в таблицу 2
350 Дата: Вторник, 12.12.2023, 13:30 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 60% ±

Уважаемые знатоки Excel, добрый день!

Помогите, пожалуйста, превратить первую таблицу во вторую, используя именно Power Query.

Заранее благодарю!
К сообщению приложен файл: 12_12_2023_forum.xlsx (11.8 Kb)


Сообщение отредактировал Serge_007 - Вторник, 12.12.2023, 21:28
 
Ответить
СообщениеУважаемые знатоки Excel, добрый день!

Помогите, пожалуйста, превратить первую таблицу во вторую, используя именно Power Query.

Заранее благодарю!

Автор - 350
Дата добавления - 12.12.2023 в 13:30
jakim Дата: Вторник, 12.12.2023, 17:36 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1195
Репутация: 313 ±
Замечаний: 0% ±

Excel 2010
Power Query

l[vba]
Код
et
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Наименование", type text}, {"Месяцы", type any}, {"Column1", type any}, {"Column2", type any}, {"Column3", type any}, {"Column4", type any}, {"Column5", type any}, {"Column6", type any}, {"Column7", type any}}),
    #"Promoted Headers" = Table.PromoteHeaders(#"Changed Type", [PromoteAllScalars=true]),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Promoted Headers", {"Column1"}, "Месяц", "Значение"),
    #"Removed Top Rows" = Table.Skip(#"Unpivoted Other Columns",8),
    #"Added Index" = Table.AddIndexColumn(#"Removed Top Rows", "Index", 0, 1),
    #"Inserted Modulo" = Table.AddColumn(#"Added Index", "Modulo", each Number.Mod([Index], 2), type number),
    #"Added Conditional Column" = Table.AddColumn(#"Inserted Modulo", "план/факт", each if [Modulo] = 0 then "план" else if [Modulo] = 1 then "факт" else null),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Added Conditional Column", "Месяц", Splitter.SplitTextByEachDelimiter({"_"}, QuoteStyle.Csv, false), {"Месяц.1", "Месяц.2"}),
    #"Removed Other Columns" = Table.SelectColumns(#"Split Column by Delimiter",{"Column1", "Месяц.1", "план/факт", "Значение"}),
    #"Renamed Columns" = Table.RenameColumns(#"Removed Other Columns",{{"Column1", "Наименование"}, {"Месяц.1", "Месяц"}}),
    #"Filtered Rows" = Table.SelectRows(#"Renamed Columns", each ([Месяц] <> "Итого"))
in
    #"Filtered Rows"
[/vba]
К сообщению приложен файл: 2802556.xlsx (22.1 Kb)
 
Ответить
Сообщение
Power Query

l[vba]
Код
et
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Наименование", type text}, {"Месяцы", type any}, {"Column1", type any}, {"Column2", type any}, {"Column3", type any}, {"Column4", type any}, {"Column5", type any}, {"Column6", type any}, {"Column7", type any}}),
    #"Promoted Headers" = Table.PromoteHeaders(#"Changed Type", [PromoteAllScalars=true]),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Promoted Headers", {"Column1"}, "Месяц", "Значение"),
    #"Removed Top Rows" = Table.Skip(#"Unpivoted Other Columns",8),
    #"Added Index" = Table.AddIndexColumn(#"Removed Top Rows", "Index", 0, 1),
    #"Inserted Modulo" = Table.AddColumn(#"Added Index", "Modulo", each Number.Mod([Index], 2), type number),
    #"Added Conditional Column" = Table.AddColumn(#"Inserted Modulo", "план/факт", each if [Modulo] = 0 then "план" else if [Modulo] = 1 then "факт" else null),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Added Conditional Column", "Месяц", Splitter.SplitTextByEachDelimiter({"_"}, QuoteStyle.Csv, false), {"Месяц.1", "Месяц.2"}),
    #"Removed Other Columns" = Table.SelectColumns(#"Split Column by Delimiter",{"Column1", "Месяц.1", "план/факт", "Значение"}),
    #"Renamed Columns" = Table.RenameColumns(#"Removed Other Columns",{{"Column1", "Наименование"}, {"Месяц.1", "Месяц"}}),
    #"Filtered Rows" = Table.SelectRows(#"Renamed Columns", each ([Месяц] <> "Итого"))
in
    #"Filtered Rows"
[/vba]

Автор - jakim
Дата добавления - 12.12.2023 в 17:36
daviva67 Дата: Воскресенье, 24.12.2023, 13:36 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

365
350,
К сообщению приложен файл: 2664265.xlsx (22.8 Kb)


Василич
 
Ответить
Сообщение350,

Автор - daviva67
Дата добавления - 24.12.2023 в 13:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Power-надстройкам » Превратите таблицу 1 в таблицу 2 (Power Qwery)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!