bigorq
Дата: Четверг, 17.08.2023, 22:38 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 205
Репутация:
47
±
Замечаний:
0% ±
Нет
Shakal07 хотел для 2007, но раз в ход пошел textjoin то так корочеКод
=TEXTJOIN(", ";1;IF(B11=Справочник.$B$2:$B$22;Справочник.$C$2:$C$22;""))
Shakal07 хотел для 2007, но раз в ход пошел textjoin то так корочеКод
=TEXTJOIN(", ";1;IF(B11=Справочник.$B$2:$B$22;Справочник.$C$2:$C$22;""))
bigorq
Ответить
Сообщение Shakal07 хотел для 2007, но раз в ход пошел textjoin то так корочеКод
=TEXTJOIN(", ";1;IF(B11=Справочник.$B$2:$B$22;Справочник.$C$2:$C$22;""))
Автор - bigorq Дата добавления - 17.08.2023 в 22:38
bigor
Дата: Понедельник, 21.08.2023, 09:33 |
Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1374
Репутация:
269
±
Замечаний:
0% ±
нет
Shakal07 , еще вариант с допстолбцами, и с лишними запятыми чего то придумать надо без лишних запятых Код
=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(CONCATENATE(F16;",";G16;",";H16;",";I16;",";J16;",";K16);" ";"$");",";" "));" ";", ");"$";" ")
Shakal07 , еще вариант с допстолбцами, и с лишними запятыми чего то придумать надо без лишних запятых Код
=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(CONCATENATE(F16;",";G16;",";H16;",";I16;",";J16;",";K16);" ";"$");",";" "));" ";", ");"$";" ")
bigor
Сообщение отредактировал bigor - Понедельник, 21.08.2023, 10:07
Ответить
Сообщение Shakal07 , еще вариант с допстолбцами, и с лишними запятыми чего то придумать надо без лишних запятых Код
=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(CONCATENATE(F16;",";G16;",";H16;",";I16;",";J16;",";K16);" ";"$");",";" "));" ";", ");"$";" ")
Автор - bigor Дата добавления - 21.08.2023 в 09:33
jakim
Дата: Понедельник, 21.08.2023, 09:47 |
Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1218
Репутация:
316
±
Замечаний:
0% ±
Excel 2010
"Кнопочнй" вариант Power Query.
[vba]Код
let Source = Table.NestedJoin(Товары,{"Код поставщика"},Таблица2,{"Код поставщика"},"NewColumn",JoinKind.LeftOuter), #"Expanded NewColumn" = Table.ExpandTableColumn(Source, "NewColumn", {"Город", "Код поставщика", "Поставщик", "Товары"}, {"NewColumn.Город", "NewColumn.Код поставщика", "NewColumn.Поставщик", "NewColumn.Товары"}), #"Filtered Rows" = Table.SelectRows(#"Expanded NewColumn", each ([NewColumn.Город] <> null)), #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"NewColumn.Товары", "NewColumn.Код поставщика", "ID"}), #"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"NewColumn.Поставщик", "Поставщик"}, {"NewColumn.Город", "Город"}}), #"Grouped Rows" = Table.Group(#"Renamed Columns", {"Код поставщика", "Город", "Поставщик"}, {{"Count", each _, type table}}), #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Наименование]), #"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Custom", each Text.Combine(List.Transform(_, Text.From), ", "), type text}), #"Removed Columns1" = Table.RemoveColumns(#"Extracted Values",{"Count"}), #"Reordered Columns" = Table.ReorderColumns(#"Removed Columns1",{"Город", "Код поставщика", "Поставщик", "Custom"}) in #"Reordered Columns"
[/vba]
"Кнопочнй" вариант Power Query.
[vba]Код
let Source = Table.NestedJoin(Товары,{"Код поставщика"},Таблица2,{"Код поставщика"},"NewColumn",JoinKind.LeftOuter), #"Expanded NewColumn" = Table.ExpandTableColumn(Source, "NewColumn", {"Город", "Код поставщика", "Поставщик", "Товары"}, {"NewColumn.Город", "NewColumn.Код поставщика", "NewColumn.Поставщик", "NewColumn.Товары"}), #"Filtered Rows" = Table.SelectRows(#"Expanded NewColumn", each ([NewColumn.Город] <> null)), #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"NewColumn.Товары", "NewColumn.Код поставщика", "ID"}), #"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"NewColumn.Поставщик", "Поставщик"}, {"NewColumn.Город", "Город"}}), #"Grouped Rows" = Table.Group(#"Renamed Columns", {"Код поставщика", "Город", "Поставщик"}, {{"Count", each _, type table}}), #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Наименование]), #"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Custom", each Text.Combine(List.Transform(_, Text.From), ", "), type text}), #"Removed Columns1" = Table.RemoveColumns(#"Extracted Values",{"Count"}), #"Reordered Columns" = Table.ReorderColumns(#"Removed Columns1",{"Город", "Код поставщика", "Поставщик", "Custom"}) in #"Reordered Columns"
[/vba]jakim
Ответить
Сообщение "Кнопочнй" вариант Power Query.
[vba]Код
let Source = Table.NestedJoin(Товары,{"Код поставщика"},Таблица2,{"Код поставщика"},"NewColumn",JoinKind.LeftOuter), #"Expanded NewColumn" = Table.ExpandTableColumn(Source, "NewColumn", {"Город", "Код поставщика", "Поставщик", "Товары"}, {"NewColumn.Город", "NewColumn.Код поставщика", "NewColumn.Поставщик", "NewColumn.Товары"}), #"Filtered Rows" = Table.SelectRows(#"Expanded NewColumn", each ([NewColumn.Город] <> null)), #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"NewColumn.Товары", "NewColumn.Код поставщика", "ID"}), #"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"NewColumn.Поставщик", "Поставщик"}, {"NewColumn.Город", "Город"}}), #"Grouped Rows" = Table.Group(#"Renamed Columns", {"Код поставщика", "Город", "Поставщик"}, {{"Count", each _, type table}}), #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each [Count][Наименование]), #"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Custom", each Text.Combine(List.Transform(_, Text.From), ", "), type text}), #"Removed Columns1" = Table.RemoveColumns(#"Extracted Values",{"Count"}), #"Reordered Columns" = Table.ReorderColumns(#"Removed Columns1",{"Город", "Код поставщика", "Поставщик", "Custom"}) in #"Reordered Columns"
[/vba]Автор - jakim Дата добавления - 21.08.2023 в 09:47