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

[Hugo121]

Так выше ведь вроде как уже работало?

[RTFM]

Вот когда такое было: With CreateObject("Scripting.Dictionary" ), работало, а когда Dim A As New Dictionary, не прет код =)

[Hugo121]

Так это разные объекты - словарь и коллекции!

[EducatedFool]

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

Вот когда такое было: With CreateObject("Scripting.Dictionary" ), работало, а когда Dim A As New Dictionary, не прет код =)

Так и хочется вам ответить, просто прицитировав ваш ник ))

Чтобы заработало Dim A As New Dictionary (а это называется «раннее связывание»), надо подключить в меню Tools - References библиотеку Microsoft Scripting Runtime

[RTFM]

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

Так и хочется вам ответить, просто прицитировав ваш ник ))

Чтобы заработало Dim A As New Dictionary (а это называется «раннее связывание»), надо подключить в меню Tools - References библиотеку Microsoft Scripting Runtime

Гг, надо просто делать срочно=) В выходные буду курить что к чему=)

[Hugo121]

А чтобы заработало

Dim col As New Collection

ничего подключать не нужно - всё уже родное, подключенное.

[RTFM]

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

А чтобы заработало

Dim col As New Collection

ничего подключать не нужно - всё уже родное, подключенное.

Все заработало, видать не правильно объявил переменную. Теперь задача следующая - подсчитать сколько раз повторяется каждое значение и вывести в отдельную колонку таблицы число, параллельно с названием значений xD Буду гуглить, но рад буду если поможешь =)То есть в принципе наверное если доработать код, можно сделать так что бы параллельно удаленному элементу, в параллельный массив, ложились цифры с колличеством удаленных элементов, вот тока как %))

[Hugo121]

Это не сложно - при добавление в коллецию уже существующего значения будет ошибка, вот их и считайте.
Но как привязать этот счёт к значению... Это уже другой непростой вопрос.
Поэтому я бы посоветовал словарь - там можно сразу в item вместо нуля помещать этот счётчик, затем в конце выгрузить рядом ключи и количество повторов.

[RTFM]

Вы на личку то не отвечаете? =)

[Hugo121]

Отчегож... Отвечаю. Когда замечаю и время есть.
Всёж мы не безработные чай...