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     
   
 
   
 
 
 Группа: Проверенные  
 
 
 Ранг: Старожил  
 
 Сообщений:  1408 
 
 
 
 
  Репутация:    
 365    
 ±  
 
  
 Замечаний:
 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     
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Старожил  
 
 Сообщений:  1218 
 
 
 
 
  Репутация:    
 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