elycioo
Дата: Вторник, 07.03.2023, 14:24 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Добрый день. Помогите, пожалуйста, разобраться. Нужно сделать нумерацию внутри группировки, а не всего листа. В PQ. Прикладываю файл пример, как должно получится.
Добрый день. Помогите, пожалуйста, разобраться. Нужно сделать нумерацию внутри группировки, а не всего листа. В PQ. Прикладываю файл пример, как должно получится. elycioo
Сообщение отредактировал elycioo - Вторник, 07.03.2023, 14:47
Ответить
Сообщение Добрый день. Помогите, пожалуйста, разобраться. Нужно сделать нумерацию внутри группировки, а не всего листа. В PQ. Прикладываю файл пример, как должно получится. Автор - elycioo Дата добавления - 07.03.2023 в 14:24
прохожий2019
Дата: Вторник, 07.03.2023, 17:58 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1298
Репутация:
327
±
Замечаний:
0% ±
365 Beta Channel
[vba]Код
let from = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content], gr = Table.Group(from, "Группировка", {"tmp", (t)=>Table.AddIndexColumn(t,"i",1)}), to = Table.Combine(gr[tmp]) in to
[/vba]
[vba]Код
let from = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content], gr = Table.Group(from, "Группировка", {"tmp", (t)=>Table.AddIndexColumn(t,"i",1)}), to = Table.Combine(gr[tmp]) in to
[/vba] прохожий2019
Ответить
Сообщение [vba]Код
let from = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content], gr = Table.Group(from, "Группировка", {"tmp", (t)=>Table.AddIndexColumn(t,"i",1)}), to = Table.Combine(gr[tmp]) in to
[/vba] Автор - прохожий2019 Дата добавления - 07.03.2023 в 17:58
jakim
Дата: Вторник, 07.03.2023, 18:01 |
Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1216
Репутация:
316
±
Замечаний:
0% ±
Excel 2010
Вариант с "кнопками"
[vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content], #"Grouped Rows" = Table.Group(Source, {"Группировка"}, {{"Count", each _, type table [Группировка=number, Артикул=number]}}), #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Артикул]), #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"Count"}), #"Extracted Values" = Table.TransformColumns(#"Removed Columns", {"Custom", each Text.Combine(List.Transform(_, Text.From), " "), type text}), #"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values", "Custom", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Custom.1", "Custom.2", "Custom.3", "Custom.4", "Custom.5", "Custom.6", "Custom.7", "Custom.8", "Custom.9", "Custom.10", "Custom.11"}), #"Transposed Table" = Table.Transpose(#"Split Column by Delimiter"), #"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table", [PromoteAllScalars=true]), #"Added Index" = Table.AddIndexColumn(#"Promoted Headers", "Index", 1, 1, Int64.Type), #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Added Index", {"Index"}, "Attribute", "Value"), #"Sorted Rows" = Table.Sort(#"Unpivoted Other Columns",{{"Attribute", Order.Ascending}, {"Index", Order.Ascending}}), #"Changed Type" = Table.TransformColumnTypes(#"Sorted Rows",{{"Attribute", Int64.Type}, {"Value", Int64.Type}}), #"Reordered Columns" = Table.ReorderColumns(#"Changed Type",{"Attribute", "Value", "Index"}) in #"Reordered Columns"
[/vba]
Вариант с "кнопками"
[vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content], #"Grouped Rows" = Table.Group(Source, {"Группировка"}, {{"Count", each _, type table [Группировка=number, Артикул=number]}}), #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Артикул]), #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"Count"}), #"Extracted Values" = Table.TransformColumns(#"Removed Columns", {"Custom", each Text.Combine(List.Transform(_, Text.From), " "), type text}), #"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values", "Custom", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Custom.1", "Custom.2", "Custom.3", "Custom.4", "Custom.5", "Custom.6", "Custom.7", "Custom.8", "Custom.9", "Custom.10", "Custom.11"}), #"Transposed Table" = Table.Transpose(#"Split Column by Delimiter"), #"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table", [PromoteAllScalars=true]), #"Added Index" = Table.AddIndexColumn(#"Promoted Headers", "Index", 1, 1, Int64.Type), #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Added Index", {"Index"}, "Attribute", "Value"), #"Sorted Rows" = Table.Sort(#"Unpivoted Other Columns",{{"Attribute", Order.Ascending}, {"Index", Order.Ascending}}), #"Changed Type" = Table.TransformColumnTypes(#"Sorted Rows",{{"Attribute", Int64.Type}, {"Value", Int64.Type}}), #"Reordered Columns" = Table.ReorderColumns(#"Changed Type",{"Attribute", "Value", "Index"}) in #"Reordered Columns"
[/vba]jakim
Ответить
Сообщение Вариант с "кнопками"
[vba]Код
let Source = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content], #"Grouped Rows" = Table.Group(Source, {"Группировка"}, {{"Count", each _, type table [Группировка=number, Артикул=number]}}), #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Артикул]), #"Removed Columns" = Table.RemoveColumns(#"Added Custom",{"Count"}), #"Extracted Values" = Table.TransformColumns(#"Removed Columns", {"Custom", each Text.Combine(List.Transform(_, Text.From), " "), type text}), #"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values", "Custom", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Custom.1", "Custom.2", "Custom.3", "Custom.4", "Custom.5", "Custom.6", "Custom.7", "Custom.8", "Custom.9", "Custom.10", "Custom.11"}), #"Transposed Table" = Table.Transpose(#"Split Column by Delimiter"), #"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table", [PromoteAllScalars=true]), #"Added Index" = Table.AddIndexColumn(#"Promoted Headers", "Index", 1, 1, Int64.Type), #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Added Index", {"Index"}, "Attribute", "Value"), #"Sorted Rows" = Table.Sort(#"Unpivoted Other Columns",{{"Attribute", Order.Ascending}, {"Index", Order.Ascending}}), #"Changed Type" = Table.TransformColumnTypes(#"Sorted Rows",{{"Attribute", Int64.Type}, {"Value", Int64.Type}}), #"Reordered Columns" = Table.ReorderColumns(#"Changed Type",{"Attribute", "Value", "Index"}) in #"Reordered Columns"
[/vba]Автор - jakim Дата добавления - 07.03.2023 в 18:01