bigorq
Дата: Четверг, 17.08.2023, 22:38 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация:
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
Shakal07
Дата: Воскресенье, 20.08.2023, 14:50 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация:
0
±
Замечаний:
0% ±
Excel 2k3;2k7;2k10;2k13;2k19
Nic70y , Спасибо за помощь. Но, к сожалению, Справочник заблокирован от измененийcmivadwot , bigorq , И Вам спасибо за Помощь и формулы. Но, к сожалению, предложенная Вами функция ОБЪЕДИНИТЬ она же textjoin работает начиная с 2019 Excel'я и не подходит для 2007 Кто что еще может предложить?
Nic70y , Спасибо за помощь. Но, к сожалению, Справочник заблокирован от измененийcmivadwot , bigorq , И Вам спасибо за Помощь и формулы. Но, к сожалению, предложенная Вами функция ОБЪЕДИНИТЬ она же textjoin работает начиная с 2019 Excel'я и не подходит для 2007 Кто что еще может предложить?Shakal07
Ответить
Сообщение Nic70y , Спасибо за помощь. Но, к сожалению, Справочник заблокирован от измененийcmivadwot , bigorq , И Вам спасибо за Помощь и формулы. Но, к сожалению, предложенная Вами функция ОБЪЕДИНИТЬ она же textjoin работает начиная с 2019 Excel'я и не подходит для 2007 Кто что еще может предложить?Автор - Shakal07 Дата добавления - 20.08.2023 в 14:50
bigor
Дата: Понедельник, 21.08.2023, 09:33 |
Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 1228
Репутация:
236
±
Замечаний:
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 |
Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1210
Репутация:
314
±
Замечаний:
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