Задача с массивом!

[kloyn91]

Уважаемые программисты помогите решить задачу с массивами!
Задача:Подсчитайте количество уникальных чисел в массиве.

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

[doober]

В Вашей предыдущей теме есть ответ

[IgorGO]

я, как и многие из спрашивающих здесь, не пользуюсь поиском... интересно и есть время - решаю задачку, неинтересно - пропускаю... почти все задачки, которые требуют менее 2-х минут затрат - автоматически, попадают в число решаемых...

[kloyn91]

IgorGO, спасибо...но мне надо чтобы эта программа была написана через VBA!Можете помоч?

[IgorGO]

ясен-красен.
Вы мне обьяснеете что такое ВБА, я Вам выдаю решение...

[kloyn91]

IgorGO, я понимаю...да программа работает, но мне нужен текст написанной программы(я в редактор VBA захожу, там ни чего нет)

[SAS888]

Как вариант:

Sub Uniq1()
    Dim i As Long, x As New Collection, a()
    a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 1, 2, 3, 1, 2, 10, 11, 10, 12)
    On Error Resume Next
    For i = LBound(a) To UBound(a)
        x.Add a(i), CStr(a(i))
    Next
    On Error GoTo 0: MsgBox x.Count
End Sub

[Stilet]

За а-ля кросспост закрываю.
Отвед был дан.