Макрос тормозит

[valerij]

Парни, что не так?
Макрос тормозит ужас.
Простейший, когда мало данных работает и без ошибок, а вот запустил на все данные, через час сработал и ещё с ошибкой!!
Удалил первое значение, а сдвига не было и стал нафиг.

Sub поиск()
Application.EnableEvents = False
Application.ScreenUpdating = False
a: For y = 1 To 531552
    If Cells(1, 2) = Cells(y, 1) Then Cells(y, 3) = 0
        Next: Cells(1, 2).Delete Shift:=xlUp
            If Cells(1, 2) = "" Then
                Else
                y = 1: GoTo a
            End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

В столбце А-А 531552 строк, а в столбце В-В 378987
Беру первое значение в В1 ищу такое же в А-А, если нет такого значения удаляю В1 со сдвигом вверх, если нашёл, ставить метку Cells(y, 3) = 0 и также удаляет и т. д.

Чё ему сцуки надо, чё так долго??

[IgorGO]

шедеврально!
перлы через строку, добавил в избранное

на твой стандартный вопрос

что не так?

у меня стандартный ответ:
- выгони того, кто это писал с работы, найми программиста - все станет на свои места.

[doober]

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

Парни, что не так?
Чё ему сцуки надо, чё так долго??

Валера,он словаря просит.

Игорь,он сам себя не выгонит

[valerij]

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

- выгони того, кто это писал с работы, найми программиста - все станет на свои места.

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

Не, конечно, если там макрос буде огромный, то не надо...

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

Валера,он словаря просит.

Чё ещё за словарь, мать его!!!

Хоть алгоритм поиска дайте....

[IgorGO]

я использую такой алгоритм поиска:
ищу пока находятся, как только перестало находиться - прекращаю поиск (чтобы компьютер отдохнул)

[valerij]

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

я использую такой алгоритм поиска:
ищу пока находятся, как только перестало находиться - прекращаю поиск (чтобы компьютер отдохнул)

Спасибо за конкретную помощь....

[alex77755]

Алгоритм здесь бывает часто этот
1. считываешь один столбец в массив одной строкой
2. грузишь в словарь ("Scripting.Dictionary")
3. считываешь другой столбец в массив
4. идешь в цикле по массиву с проверкой наличия в словаре

[alex77755]

Беру первое значение в В1 ищу такое же в А-А, если нет такого значения удаляю В1 со сдвигом вверх, если нашёл, ставить метку Cells(y, 3) = 0 и также удаляет и т. д.

Лучше бы озвучил задачу, а не свой способ её решения
Да и кусочек файла не помешал бы
Кстати и считывать, раз данные на одном листе можно все сразу, а не по столбцам

[valerij]

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

Лучше бы озвучил задачу, а не свой способ её решения
Да и кусочек файла не помешал бы
Кстати и считывать, раз данные на одном листе можно все сразу, а не по столбцам

Задача - удалить в столбце В-В несовпадающие значения в столбце А-А, а те, которые совпали, оставить.
(которые совпали, оставить - я не знаю как, поэтому делал метку 0)
Вот прикрепил, там мой макрос почему-то работает, если не понятно изложил задачу, запустит макрос и поймёте итог.
Спасибо.

[alex77755]

Дубли могут быть?
И оставлять как? По порядку в колонке или напротив в колонке А?