Как получить товары поставщика в одной ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Как получить товары поставщика в одной ячейке (Формулы/Formulas)

Shakal07

Дата: Среда, 16.08.2023, 22:38 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 0 ±

Замечаний: 0% ±

Excel 2k3;2k7;2k10;2k13;2k19

Здравствуйте

Имеется таблица поставщиков по городам, необходимо извлечь из листа "Справочник" все товары определенного Поставщика
Надо учесть что наименование товара может быть и более 255 символов

Желательно чтобы это была формула для Excel 2007

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

К сообщению приложен файл: tovary_postavshhika.xlsx (13.6 Kb)

Ответить

Nic70y

Дата: Четверг, 17.08.2023, 08:06 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

с доп.столбцом в справочнике

К сообщению приложен файл: 15.xlsx (14.1 Kb)

ЮMoney 41001841029809

Ответить

cmivadwot

Дата: Четверг, 17.08.2023, 22:11 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 534

Репутация: 97 ±

Замечаний: 0% ±

365

Shakal07, без доп столбца.. по шаблону из поиска... "Поиск ВПР нескольких значений по нескольким условиям.... Как найти несколько значений без дубликатов". Но наверно с доп столбцом надежней.. в 2007

К сообщению приложен файл: tovary_postavshhika_1.xlsx (16.2 Kb)

Сообщение отредактировал cmivadwot - Четверг, 17.08.2023, 23:23

Ответить

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;""))

Ответить

cmivadwot

Дата: Четверг, 17.08.2023, 23:26 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 534

Репутация: 97 ±

Замечаний: 0% ±

365

bigorq, мда... ОБЪЕДИНИТЬ с 2019. "Справочник!" !

Ответить

Shakal07

Дата: Воскресенье, 20.08.2023, 14:50 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 54

Репутация: 0 ±

Замечаний: 0% ±

Excel 2k3;2k7;2k10;2k13;2k19

Nic70y, Спасибо за помощь. Но, к сожалению, Справочник заблокирован от изменений

cmivadwot, bigorq, И Вам спасибо за Помощь и формулы. Но, к сожалению, предложенная Вами функция ОБЪЕДИНИТЬ она же textjoin работает начиная с 2019 Excel'я и не подходит для 2007

Кто что еще может предложить?

Ответить

прохожий2019

Дата: Воскресенье, 20.08.2023, 19:25 | Сообщение № 7

Группа: Проверенные

Ранг: Старожил

Сообщений: 1298

Репутация: 327 ±

Замечаний: 0% ±

365 Beta Channel

Цитата Shakal07, 20.08.2023 в 14:50, в сообщении № 6 (

)

Справочник заблокирован от изменений

тогда допстолбцы на листе для вынимания

К сообщению приложен файл: 1868626.xlsx (16.5 Kb)

Ответить

bigor

Дата: Понедельник, 21.08.2023, 09:33 | Сообщение № 8

Группа: Проверенные

Ранг: Старожил

Сообщений: 1271

Репутация: 244 ±

Замечаний: 0% ±

нет

Shakal07, еще вариант с допстолбцами, ~~и с лишними запятыми чего то придумать надо~~
без лишних запятых

Код

=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(CONCATENATE(F16;",";G16;",";H16;",";I16;",";J16;",";K16);" ";"$");",";" "));" ";", ");"$";" ")

К сообщению приложен файл: 1868626_1.xlsx (12.0 Kb)

Сообщение отредактировал bigor - Понедельник, 21.08.2023, 10:07

Ответить

jakim

Дата: Понедельник, 21.08.2023, 09:47 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 1216

Репутация: 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]

К сообщению приложен файл: 5033810.xlsx (23.2 Kb)

Ответить

Как получить товары поставщика в одной ячейке (Формулы/Formulas)

Страница 1 из 1
1