Количество одинаковых значений массива.

[RTFM]

Добрый день! Или вечер, или ночь.
Есть массив данных, в нем есть названия городов, в этом массиве есть повторяющие строки. Есть второй массив, в нем повторяющиеся строки удалены. Есть есть скрипт который заполняет шаблон Word, в первую колонку внесены значения массива без одинаковых значений (названия городов). Во вторую колонку нужно заполнить количество одинаковых значений первого массива в том же порядке. То есть: Первая колонка - город, вторая количество повторяющихся значений. Если что тут есть обсуждение что я делал: http://www.programmersforum.ru/showt...F7%E5%ED%E8%E9

[RTFM]

Кароче допер сам как сделать =)
Dim regs_n() 'куда складывать цифры счетчика
n_d ' счетчик
n_dr 'счетчик 2

' regs_sp - массив со списком городов
' col.Item - коллекция с отобраными значениями regs_sp без повторений


ReDim Preserve regs_n(0)
For n_d = 1 To col.Count
n_i = 0
ReDim Preserve regs_n(n_d)
For n_dr = 0 To UBound(regs_sp)

If (CStr(regs_sp(n_dr))) = (CStr(col.Item(n_d))) Then
n_i = n_i + 1
regs_n(n_d) = n_i
End If

Next n_dr
MsgBox (CStr(regs_n(n_d)))
Next n_d

Единственное что я понимаю - что это все через жопу, можно было бы в одной процедуре все сделать, кто бы помог мне все объединить =))) а то коллекция одно делает, там в памяти торчит что то, жесть %)

[Hugo121]

"Есть массив данных, в нем есть названия городов, в этом массиве есть повторяющие строки." - так сразу из этого массива всё и делайте. Через словарь, не через жопу

[RTFM]

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

"Есть массив данных, в нем есть названия городов, в этом массиве есть повторяющие строки." - так сразу из этого массива всё и делайте. Через словарь, не через жопу

Ну на использование словаря вы мня толкнули так и пошло, что теперь типо убрать, или я не понимаю %))