Сцепить комментарии и значения из списка по условию

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сцепить комментарии и значения из списка по условию (Формулы/Formulas)

chernoznat999

Дата: Понедельник, 08.11.2021, 17:07 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Добрый день, прошу помочь с решением проблемы по созданию доп отчёта.

Суть следующая: есть таблица поставок товаров с количеством, датой и наименованием поставщика, необходимо все поставки собрать в текстовое поле по каждому из товаров.

Прошу предложить решение именно такой задачи, так как я очень упростил ситуацию и на месте наименования поставщика может быть что угодно (поставщик, текстовый комментарий, спецификации и тд).

Сам не могу понять как выдернуть по формуле не одну строку, а сразу все.

Заранее благодарю за помошь.

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

Ответить

bigor

Дата: Понедельник, 08.11.2021, 17:17 | Сообщение № 2

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

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

Сообщений: 1100

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

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

нет

chernoznat999, а какой офис, если "новый" и есть

Код

=ОБЪЕДИНИТЬ()

, то это через нее все просто делается

Сообщение отредактировал Serge_007 - Понедельник, 08.11.2021, 17:33

Ответить

chernoznat999

Дата: Понедельник, 08.11.2021, 18:02 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 3

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

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

bigor, офис новый, но эта функция объединяет только что я могу ей указать, а проблема что я не могу додуматься как мне указать взять все поставки соответствующие конкретному товару. Пробовал соорудить через ВПР вытаскивать отдельные значения колонок и потом соединять через СЦЕП, но ВПР вытаскивает только первое попавшееся значение, а не все что найдёт.

Ответить

Pelena

Дата: Понедельник, 08.11.2021, 18:39 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата chernoznat999, 08.11.2021 в 18:02, в сообщении № 3 (

)

офис новый

Код

=ОБЪЕДИНИТЬ("; ";ИСТИНА;ЕСЛИ($B$2:$B$10=G2;$E$2:$E$10&" - "&$C$2:$C$10&" от "&ТЕКСТ($D$2:$D$10;"ДД.ММ.ГГГГ");""))

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

chernoznat999

Дата: Вторник, 09.11.2021, 10:11 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 3

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

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

Pelena, Огромная благодарность, теперь понял как пользоваться "ОБЪЕДИНИТЬ". hands

Ответить

прохожий2019

Дата: Вторник, 09.11.2021, 10:51 | Сообщение № 6

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

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

Сообщений: 1244

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

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

365 Beta Channel

в новом офисе можно и так

Код

=ОБЪЕДИНИТЬ("; ";;ФИЛЬТР($E$2:$E$10&" - "&$C$2:$C$10&" от "&ТЕКСТ($D$2:$D$10;"ДД.ММ.ГГГГ");$B$2:$B$10=G2))

Ответить

volganin34

Дата: Вторник, 09.11.2021, 12:54 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2013

Подскажите пожалуйста, а для Офиса 2013 в какую сторону копать.

Ответить

китин

Дата: Вторник, 09.11.2021, 13:18 | Сообщение № 8

Группа: Модераторы

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

Цитата volganin34, 09.11.2021 в 12:54, в сообщении № 7 (

)

для Офиса 2013

в сторону макросов

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Nic70y

Дата: Вторник, 09.11.2021, 14:50 | Сообщение № 9

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

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

Сообщений: 8759

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

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

Excel 2010

доп.

Код

=ВПР()

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

ЮMoney 41001841029809

Ответить

китин

Дата: Вторник, 09.11.2021, 15:11 | Сообщение № 10

Группа: Модераторы

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

PQ всемогущий

[vba]

Код

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Дата", type date}}),
    #"Сгруппированные строки" = Table.Group(#"Измененный тип", {"Товар"}, {{"Количество", each _, type table}}),
    #"Развернутый элемент Количество" = Table.ExpandTableColumn(#"Сгруппированные строки", "Количество", {"Кол-во", "Дата", "Поставщик"}, {"Кол-во", "Дата", "Поставщик"}),
    #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Развернутый элемент Количество",{"Товар", "Поставщик", "Кол-во", "Дата"}),
    #"Вставлено: объединенный столбец" = Table.AddColumn(#"Переупорядоченные столбцы", "Сведено", each Text.Combine({[Поставщик], Text.From([#"Кол-во"], "ru-RU")}, " -"), type text),
    #"Переупорядоченные столбцы1" = Table.ReorderColumns(#"Вставлено: объединенный столбец",{"Товар", "Поставщик", "Кол-во", "Сведено", "Дата"}),
    #"Объединенные столбцы" = Table.CombineColumns(Table.TransformColumnTypes(#"Переупорядоченные столбцы1", {{"Дата", type text}}, "ru-RU"),{"Сведено", "Дата"},Combiner.CombineTextByDelimiter(" от ", QuoteStyle.None),"Сведено.1"),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Объединенные столбцы",{"Поставщик", "Кол-во"}),
    #"Сгруппированные строки1" = Table.Group(#"Удаленные столбцы", {"Товар"}, {{"Количество", each _, type table}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Сгруппированные строки1", "Пользовательская", each Table.Column([Количество],"Сведено.1")),
    #"Извлеченные значения" = Table.TransformColumns(#"Добавлен пользовательский объект", {"Пользовательская", each Text.Combine(List.Transform(_, Text.From), ";"), type text}),
    #"Удаленные столбцы1" = Table.RemoveColumns(#"Извлеченные значения",{"Количество"})
in
    #"Удаленные столбцы1"

[/vba]

PQ всемогущий

[vba]

Код

[/vba]

китин

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

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

СообщениеPQ всемогущий

[vba]

Код

[/vba]

Автор - китин
Дата добавления - 09.11.2021 в 15:11

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