Уникальные значения в одну строку

[Iskin]

Всем, доброе утро!
Есть данные в столбце:
Марина
Вася
Коля
Марина
Марина
Вася
и т.д.

помогите подобрать функцию, что бы в одной яч. были перечислены только уникальные значения: A1 = Марина, Вася, Коля, т.д.

[IFRSoff]

Одной функции нет. Необходимо вначале воспользовать командой уникальный список или удалить повторяющиейся значения, а далее сцепить функцией =СЦЕПИТЬ()

[Iskin]

Извините малограмотного, а как воспользоваться командой уникальный список?
хотя если кто напишет макрос, тоже было бы неплохо. Мне главное результат.

[IFRSoff]

Извиняю Выделяете диапазон содержащий
Марина
Вася
Коля
Марина
Марина
Вася
и т.д.
Выбираете в строке Меню Данные Фильтр Расширенный фильтр, ставите галочку только уникальные значения и все ОК

[Iskin]

Это немного не то, надо именно что бы без лишних движений..., т.е. или "хитрую" функцию или макрос

[SAS888]

Посмотрите вложение, в котором используется пользовательская функция. Может устроит. (См. формулу в ячейке "F2").

[Iskin]

Отлично! Рахмат!

[Iskin]

Ситуация немного усложнилась. Как мне заставить функцию, что бы она работала и при включенном фильтре? Пример во вложении

[Pavel55]

С позволения SAS888 попробуйте так

Function InRow(Диапазон As Range) As String
Dim x As New Collection, s As String, Cell As Range

    For Each Cell In Диапазон
        If Cell.EntireRow.Hidden = False Then
            On Error Resume Next
            x.Add Cell.Value, CStr(Cell.Value)
            If Err = 0 Then s = s & ", " & Cell Else On Error GoTo 0
        End If
    Next
    If s <> "" Then InRow = Right(s, Len(s) - 2)
End Function

[Iskin]

Спасибо! Помогло!