Поиск совпадений

[Серёга0629]

Добрый день!
Есть файл, в листе 130 нужно найти кол-во повторений табельных номеров. КОД ЕСТЬ!, но из-за особенности файла если запустить макрос Sovpadenie, то Exel зависает. Если скопировать ячейку С308 в ячейки С309:С312 и запустить макрос vvv, а потом макрос Sovpadenie, то всё работает. В чём проблема? Помогите кто чём может!
Жалко нет смайлика бьёщегося об стену)

[Bape}l{ka]

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

[Watcher_1]

Я думаю будет проще если создать массив отсортировать его методом Шелла и потом внутри массива искать соседние одинаковые значения

[Серёга0629]

по другому, это как?
да и в других файлах он работает прекрасно, почеу тогда при забивании 4-х ячеек и запуске макроса vvv макрос работает хорошо?
Если есть возможность каким либо образом переделать макрос - буду благодарен.

[Серёга0629]

Сортировать массив нельзя! не в коем случае. , я сюда выложил обрезаную таблицу, дальше есть колонки которые с часами, цехами и прочее.

[Bape}l{ka]

или ограничить диапазон проверки

Set x = Column("C").Find(what:=Cells(i, "C"), LookAt:=xlWhole)

переделать в:

Set x = Range("C1:C308").Find(what:=Cells(i, "C"), LookAt:=xlWhole)

п.с.: не знаю, у меня он даже при копировании и запуске сначала VVV все равно "подвисал"

[Серёга0629]

так работает, спасибо) но кол-во у меня будет менятся, попробую всавить вместь С308 - LastRow, но над этим поколдую уже попозжа)
СПАСИБО! что откликнулись.

[Bape}l{ka]

у Вас перед LastRow знак еще какой-то стоял - может случайно дописали, поэтому и не определяется

[Hugo121]

Ммм... Количество уникальных значений обычно словарём или коллекцией определяют.
Не совсем понял, что там ещё делается (запоминаются номера строк зачем-то), но и это можно словарём сделать, или если допмассив привлечь.
Поищите тут по Dictionary и Collection.
Если протянуть рядом единицы, то без переделок можно кодом из http://www.planetaexcel.ru/forum.php?thread_id=26105 вывести на новый лист все номера с количеством повторов.
Ну а если в том коде поковыряться - можно как угодно переделать.
И быстрый.

Так что именно нужно сделать? Код показал, что там нет повторов...

P.S. У меня заработало с добавлением одного условия, чтоб пустые не гоняло:

For i = 3 To 2003
If Len(Cells(i, "C")) Then
...
End If
Next

[Серёга0629]

For i = 3 To 2003
If Len(Cells(i, "C")) Then
...
End If
Next

Спасибо! работает, по крайней мере пока работает
Спасибо всем кто откликнулся