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

[Kozika]

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

[Serge_Bliznykov]

Hugo121, всё верно, нужно выбрать уникальные значения из представленного списка (из списка с повторяющимися значениями выбрать значения так, чтобы в полученном списки эти значения были уникальны).
При этом при выборке нужно производить обработку данных (слияние строк по одинаковым элементам списка).

Что то не так?

[Hugo121]

Уникальные не могут быть повторяющимися! Я верю словарю и вике
Или уникальные, или повторяющиеся.
А по сути задачи нужны все существующие в списке (или где там) в единственном числе, т.е. без повторов, и к ним подтянуть...
Это я занудствую, но в общем прежде чем делать задачу нужно её точно без разночтений понять. А то ведь был случай, когда нужно было действительно найти уникальные
Ну или редко, но бывает что нужно именно перенести значения, а все советуют ВПР()

[Аватар]

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

Тоже сначала совсем не врубился в смысл. Понятней и правильней (имхо, имхо )) звучало бы так - сгруппировать по ключевому полю, а дополнительные сведения собрать в одно поле, соединив через запятую. В общем то, что Серж в #9 написал. А выбрать уникальные означает - выбрать те, которые есть в колонке только однажды. Не?

[Hugo121]

Да в общем все уже привыкли, что обычно по эксель-форумам "уникальные" - это все, но по разу, а "перенести" - это скопировать, но ничего нигде не удалять...
Но т.к. решение уже есть, и вполне нормальное - почему бы не расставить все точки?

[Kozika]

Мальчики, всем огромное спасибо за проявленное внимание, особенно к тому как я описала свою проблему

[Serge_Bliznykov]

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

Но т.к. решение уже есть, и вполне нормальное - почему бы не расставить все точки?

решение не законченное - результат нужно отсортировать по ключевому полю (в данном случае по фамилии).

[Hugo121]

Ну так есть готовые процедуры сортировки массивов - отсортировать массив ключей, затем циклом по нему взять из словаря итемы.
Сейчас делать некогда, убегаю, может часа через 3 гляну.

[Hugo121]

Вариант без строчки нового кода, и простой - вручную делаете копию списка ФИО, удаляете дубликаты (есть такой функционал в последних экселях), сортируете список как нужно, затем подтягиваете данные из первичного списка с помощью UDF
=VLOOKUPCOUPLE($B$4:$C$14;1;G4;2;", ")
Код есть где-то тут на форуме да и уже вообще в сети.

[Hugo121]

Макрос с доппривлечением компонента из .Net (чтоб отдельно не сортировать):

Sub GroupByResult2()
    Dim z, i&, syscol As Object
    
    z = Range("B4:C" & Range("C" & Rows.Count).End(xlUp).Row).Value
    Set syscol = CreateObject("System.Collections.ArrayList")
    With CreateObject("scripting.dictionary"): .comparemode = 1
        For i = 1 To UBound(z)
            .Item(z(i, 1)) = .Item(z(i, 1)) & ", " & z(i, 2)
            If Not syscol.Contains(z(i, 1)) Then syscol.Add z(i, 1)
        Next i

        syscol.Sort: i = 0

        ReDim a(1 To .Count, 1 To 3)
        For i = 1 To UBound(a)
            a(i, 1) = i
            a(i, 2) = syscol(i - 1)
            a(i, 3) = Mid(.Item(a(i, 2)), 3)
        Next

        Range("F16").Resize(.Count, 3).Value = a
    End With
End Sub