Задача:Надо заполнить ComboBox с столбца листа Exel,когда в столбце находяться повторяющие записи,а в ComboBox они должны быть сгруппированы и не повторяться:
Sub addCmb(cmb As ComboBox, cel As Integer)
Dim n As Single, n2 As Single
Dim rng As Range
Dim a As Byte
Dim i As Single, j As Single
n = Application.WorksheetFunction.CountA(ActiveSheet.Range("a:a"))
For i = 2 To n
n2 = cmb.ListCount
If n2 = 0 Then
cmb.AddItem ActiveSheet.Cells(i, cel), 0
Else
a = 0
For j = 0 To cmb.ListCount - 1

If ActiveSheet.Cells(i, cel) = cmb.Column(0, j) Then
a = 1
Exit For
End If
Next j
If a = 0 Then cmb.AddItem ActiveSheet.Cells(i, cel)
End If
Next i
End Sub
Эта процедура работает для маленького количества записей,но когда записей 1000 она тормазит.Подскажите,пожалуста быстрый алгоритм

gjghjcОбратиться к листу экселя как к таблице БД и выдрать данные запросом с использованием DISTINCT.

С уважением, Николай.
Извения,а можно по подробнее.

Извените,но это для меня еще трудно.Вы не могли бы подксказать как это сделать используя обычный VBA Exel?