Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как получить товары поставщика в одной ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как получить товары поставщика в одной ячейке
Shakal07 Дата: Среда, 16.08.2023, 22:38 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Excel 2k3;2k7;2k10;2k13;2k19
Здравствуйте

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

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

Заранее благодарен
К сообщению приложен файл: tovary_postavshhika.xlsx (13.6 Kb)
 
Ответить
СообщениеЗдравствуйте

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

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

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

Автор - Shakal07
Дата добавления - 16.08.2023 в 22:38
Nic70y Дата: Четверг, 17.08.2023, 08:06 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8821
Репутация: 2298 ±
Замечаний: 0% ±

Excel 2010
с доп.столбцом в справочнике
К сообщению приложен файл: 15.xlsx (14.1 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениес доп.столбцом в справочнике

Автор - Nic70y
Дата добавления - 17.08.2023 в 08:06
cmivadwot Дата: Четверг, 17.08.2023, 22:11 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 478
Репутация: 87 ±
Замечаний: 0% ±

365
Shakal07, без доп столбца.. по шаблону из поиска... "Поиск ВПР нескольких значений по нескольким условиям.... Как найти несколько значений без дубликатов". Но наверно с доп столбцом надежней.. в 2007
К сообщению приложен файл: tovary_postavshhika_1.xlsx (16.2 Kb)


Сообщение отредактировал cmivadwot - Четверг, 17.08.2023, 23:23
 
Ответить
СообщениеShakal07, без доп столбца.. по шаблону из поиска... "Поиск ВПР нескольких значений по нескольким условиям.... Как найти несколько значений без дубликатов". Но наверно с доп столбцом надежней.. в 2007

Автор - cmivadwot
Дата добавления - 17.08.2023 в 22:11
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
Дата добавления - 17.08.2023 в 22:38
cmivadwot Дата: Четверг, 17.08.2023, 23:26 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 478
Репутация: 87 ±
Замечаний: 0% ±

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

Автор - cmivadwot
Дата добавления - 17.08.2023 в 23:26
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
Дата добавления - 20.08.2023 в 14:50
прохожий2019 Дата: Воскресенье, 20.08.2023, 19:25 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1263
Репутация: 321 ±
Замечаний: 0% ±

365 Beta Channel
Справочник заблокирован от изменений
тогда допстолбцы на листе для вынимания
К сообщению приложен файл: 1868626.xlsx (16.5 Kb)
 
Ответить
Сообщение
Справочник заблокирован от изменений
тогда допстолбцы на листе для вынимания

Автор - прохожий2019
Дата добавления - 20.08.2023 в 19:25
bigor Дата: Понедельник, 21.08.2023, 09:33 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 1133
Репутация: 212 ±
Замечаний: 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
 
Ответить
Сообщение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
Группа: Друзья
Ранг: Старожил
Сообщений: 1205
Репутация: 313 ±
Замечаний: 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)
 
Ответить
Сообщение
"Кнопочнй" вариант 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
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!