ПОиск эффективного варианта

[Dog_DinGo]

Есть более оптимальный вариант для вот этого:
Sub Marsh()
For j = 2 To 100
For i = 1 To 50
If Worksheets("М").Cells(i, 1) = Worksheets("БЕЗ_НАКЛАДНЫХ").Cells(3 , j) _
Then Worksheets("М").Cells(i, 1).Delete
Next i
Next j
Worksheets("М").Select
End Sub

Ибо при использовании конструкции For To она весит компьютер, на котором выполняется процедура на длительное время.

есть варианты упрощения данной процедуры?

[Hugo121]

Чтоб постоянно не обращаться к ячейкам (да и ещё на разных листах), можно взять оба диапазона одним (т.е. двумя на два диапазона) действием в массивы и затем сравнивать массивы. Это ускорит процесс раз в 40.
Затем можно и изменения делать в массиве и потом выгрузить назад на лист одним движением - это если в диапазоне нет формул, которые в этом случае погибнут.
Ещё вариант - одним проходом по массиву ("БЕЗ_НАКЛАДНЫХ") взять уникальные значения в словарь. Затем сравнивать массив листа ("М") с этим словарём. Получится два прохода по данным листов, а не 4900.

[Dog_DinGo]

Спасибо.. второй вариант валялся у меня где-то как пример... если я думаю о том, что надо, то сейчас попробую...

[Hugo121]

Примеры кода тут на форуме можно найти - и с массивами, и с словарями.
Если сравнивать два массива - можно и цикл в цикле, т.к. массивы перебираются быстро. А получив значение i массива, можно удалить значение ячейки Cells(i, 1) листа.
Но быстрее всего с словарём - как я понял, Вам ведь нужно просто удалить все значения в диапазоне листа, если они есть в диапазоне другого листа. Тогда в словаре будем иметь список всех значений, сверившись потом с которым, удаляем проверяемое значение.
А в Вашем коде ещё можно добавить выход из второго цикла после удаления - немного, но ускорит.
А чтоб всё не останавливалось при работе - добавьте DoEvents на каждом шаге первого цикла.
Но это конечно полумеры - чтоб всё не переписывать.

[Dog_DinGo]

Спасибо большое