Выпадающий список, если значения в книге повторяются.

[kamarella]

Здравствуйте, вопрос может примитивный, но найти ответа не могу. Есть книга, в столбце "пользователь" данные повторяются, причем каждый раз могут быть разные фамилии. Как мне сделать так чтобы в другой книге был выпадающий список, но при этом повторяющиеся фамилии отображались только один раз?? Хотелось бы решить проблему средствами Excel (2003).

Заранее спасибо.

пользователь
иванов
петров
сидоров
сидоров
иванов
иванов
иванов

[KL (XL)]

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

[kamarella]

Даа, строк как правило более 30 тысяч. А можно как то еще это реализовать?

[KL (XL)]

Чтобы список обновлялся в реальном времени и при этом не тормозило для 30000 строк и более, боюсь, только макросом. Обычно формулы быстрее кода VBA, но это как раз тот случай, когда формула многократно выполняет слишком много избыточных операций :-(

[nilem]

Может, так подойдет?

PHP код:

Sub CreateTheList()
    Dim i As Long, x As New Collection, poz As Range, s As String
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            On Error Resume Next: x.Add Cells(i, "A"), CStr(Cells(i, "A"))
            If Err = 0 Then s = s & "," & Cells(i, "A") Else On Error GoTo 0
    End If: Next
    [D1].Validation.Delete: [D1].Validation.Add Type:=xlValidateList, Formula1:=s
End Sub 


[KL (XL)]

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

Может, так подойдет?

PHP код:

Sub CreateTheList()
    Dim i As Long, x As New Collection, poz As Range, s As String
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            On Error Resume Next: x.Add Cells(i, "A"), CStr(Cells(i, "A"))
            If Err = 0 Then s = s & "," & Cells(i, "A") Else On Error GoTo 0
    End If: Next
    [D1].Validation.Delete: [D1].Validation.Add Type:=xlValidateList, Formula1:=s
End Sub 


По-моему, в валидации будет ограничение длины текстовой строки до 255 символов и, потом, это небыстрый алгоритм и нет сортировки :-)

Думаю, что без вспомогательного листа не обойтись, если нужна именно валидация и суммарная длина имен и разделителей превышает 255 символов.

[kamarella]

Эх. Ой как жаль. Сижу щас в вашем творении разбираюсь... И что то с первого раза вникнуть не могу. У меня в выпадающем списке еще дополнительно выводятся записи "#ЧИСЛО!" - помимо фамилий. В чем проблема может быть?

[аналитика]

может сводную попробовать прикрутить?

[kamarella]

Сообщение от аналитика

может сводную попробовать прикрутить?

А поподробнее?

[аналитика]

строишь сводную на основе 30-титысячного столбца, получаешь уникальный список...