Выбор уникальных значений

[Kozika]

Добрый день!
Прошу помощи в решении одной задачи...
Понимаю, что тема не новая, но не получается сложить все воедино
Суть в том, что есть БД, в которой имеются повторяющиеся значения.
Необходимо выбрать уникальные, но при этом с выбором уникальных значений в новую БД должны поместится в одну ячейку, объединенные данные по всем повторяющимся значениям, привязанные к нашим уникальным....
Пример во вложении

[Serge_Bliznykov]

если никто не предложит хороший вариант, то можете попробовать такой макрос:

Sub GroupByResult()
    Dim z, i&
    z = Range("B4:C" & Range("C" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .comparemode = 1
        For i = 1 To UBound(z)
           If Len(.Item(z(i, 1))) > 0 Then
             .Item(z(i, 1)) = .Item(z(i, 1)) & ","
           End If
           .Item(z(i, 1)) = .Item(z(i, 1)) & z(i, 2)
        Next i
    Range("F16").Resize(.Count, 2).Value = Application.Transpose(Array(.Keys, .Items))
   End With
End Sub

p.s. макрос чужой, взял тут на форуме и чуток испортил под текущую задачу
p.p.s. список не отсортирован

[Kozika]

Спасибо большое!
Все получилось!
Даже отсутствие сортировки не портит полученный результат )))
Отсортирую вручную!
Я пыталась сначала сделать выбор привязанных данных к одному уникальному значению, а остальные (уже не уникальные) обнуляла, на итог таблица была по кол-ву строк такой же как и исходная, только с нулями )
Еще раз спасибо!

[Serge_Bliznykov]

Пожалуйста!

Сортировку можно и программно сделать!
можно массив отсортировать (это эффективно, но чуть больше кода).
а можно и вставленный результат на листе макросом отсортировать (это неправильно, но зато просто ).

Удивлён, что никто из гуру MS Excel (коих на форуме немало) не написал своё решение!
Либо заняты, либо проглядели тему.
Кстати, Вы не будете возражать, если я тему перенесу из раздела "Помощь студентам" в раздел "MS Excel" ?

[Kozika]

Нет, я возражать не буду, переносите.
А на предмет того, что никто не ответил - может посчитали, что уже и так достаточно было сказано на эту тему )))
Сначала пыталась решить данную проблему формулами, но....как-то не сложилось )

[Serge_Bliznykov]

тему я перенёс.

формулами в данном случае решать очень сложно,
макрос проще и надёжнее.

по поводу ответов знатоков - так ещё не вечер, может быть, кто-то и ответит.

[Hugo121]

Гурам сперва бы понять что такое уникальное
Если верить вике (и вопросу), то ответ Сергея в корне неверен!
P.S. Вернее так - вопрос сам себе противоречит...

[Kozika]

Hugo121, в приложении, по моему, все просто изложено - как есть и какой должен быть результат ))) В приложенном файле указанный код сработал, в своей БД я его еще не применяла, но думаю проблем быть не должно.

[Serge_Bliznykov]

Сообщение от Hugo121

P.S. Вернее так - вопрос сам себе противоречит...

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

Иванов	35
Петров	42
Попов	46
Бобров	12
Иванов	55
Бобров	45
Петров	47
Макаров	63
Воробьев	58

получить сводную табличку вида:

Бобров	12, 45
Воробьев	58
Иванов	35, 55
Макаров	63
Петров	42, 47
Попов	46

ну,или, другой пример.
это то, что делает SQL команда:
select KeyValue, <фукция_слияния> from Table group by KeyValue

[Hugo121]

https://ru.wiktionary.org/wiki/%D1%8...BD%D1%8B%D0%B9

https://ru.wiktionary.org/wiki/уникальный

Семантические свойства
Значение

единственный в своём роде, неповторимый, существующий в одном экземпляре ◆ Уникальная вещь. ◆ Уникальный уголок природы. ◆ Уникальное сооружение.

Синонимы

неповторимый, единичный, единственный, исключительный, особый

Антонимы

расхожий, общий, повторяющийся