Как убрать повторяющиеся элементы в ComboBox

[CbIP 102]

Hi ALL!

Подскажите пожалуйтста. Есть код:

Range("A2").Activate
Set diapazon = ActiveCell.CurrentRegion
r2 = diapazon.Rows.Count
For i = 2 To r2
ComboBox1.AddItem (Cells(i, 2).Value)
Next i

Он добавляет все подряд элементы в ComboBox1. Как бы мне убрать повторяющиеся элементы? А то уже глаза в кучу у меня

[Annet 0]

эээ...мой те совет переходи на с++

попробуй так чтоли...

Long j

For i = 2 To r2

for j=0 to ComboBox1.ListCount-1

if ComboBox1.List(j)=Cells(i,2).Value then goto nz

next j

ComboBox1.AddItem (Cells(i, 2).Value)

nz:

Next i

Пойдет? А то могу ченить ещё придумать

[CbIP 102]

Спсибки!

Сам то я на Delphi сижу...

Так это лаба моя Уже сдал!