Создание списка уникальных значений по условиям

[Serge 007]

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

...временами становится муторно смотреть на то, как Офисный пакет жуёт данные: полтора-два часа на сортировку в Эксе, столько же на полнотекстовую замену в Ворде, когда обыкновенный копеешный текстовичок делает всё на лету за несколько минут.
...

Значит Вы неправильно используете Excel. Разделите свои хотелки на :
1. БД - Access
2. Таблицы - Excel
3. Текст - Word
тогда и работать всё будет быстро

[Hugo121]

Почему не макрос?
Не вникал, но на 20000 обычно нужна секунда или меньше.

Вот например код для файла ZORRO2005:

Sub tt()
    Dim a(), i&, ii&, t
    a = Sheets(1).UsedRange.Columns(1).Value
    ReDim b(1 To UBound(a), 1 To 1)
    
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For i = 1 To UBound(a)
            If Len(a(i, 1)) Then
                If Left(a(i, 1), 1) <> "-" Then
                    t = Left(a(i, 1), 5)
                    If Not .exists(t) Then
                        .Item(t) = 0&
                        ii = ii + 1
                        b(ii, 1) = t
                    End If
                End If
            End If
        Next
    End With
    [g2].Resize(ii, 1) = b
End Sub

Проверил на 21 тысяче значений несколько раз:
0,078125
0,109375
0,140625
0,0625
0,078125
0,0625