Поиск дублирующих записей

[Bulkyn]

Мне надо сравнить три столбца отдельно по каждому на предмет повтора.
Дублирующиеся красятся и еще с 20 по 22 столбцы должны проставлятся 1-цы. Но у меня срабатывает только первый цикл, т.е. поиск по 1-му стоблцу и выходит ошибка 1004 на строке отмечанный желтым. Почему эта ошибка выходит?
Заранее прошу прощения, очень очень новичок. Скачал макрос, попробовал переделать.
более 300 тыс строк((

структура такая: Порядковый номер, Фамилия, Имя, Отчество.


Sub Macro1()
For a = 1 To 302057
If Cells(a, 2).Value <> "" And Cells(a, 3).Value <> 1 Then
For b = 1 To 302057
If b <> a Then
If Cells(a, 2).Value = Cells(b, 2).Value Then
Cells(a, 2).Interior.ColorIndex = 4
Cells(b, 2).Interior.ColorIndex = 3
Cells(b, 20).Value = 1
End If
End If
Next
End If
Next

For c = 1 To 302057
If Cells(c, 3).Value <> "" And Cells(c, 4).Value <> 1 Then
For d = 1 To 302057
If d <> c Then
If Cells(c, 3).Value = Cells(d, 3).Value Then
Cells(c, 3).Interior.ColorIndex = 4
Cells(d, 3).Interior.ColorIndex = 3
Cells(d, 21).Value = 1
End If
End If
Next
End If
Next

For f = 1 To 302057
If Cells(f, 4).Value <> "" And Cells(f, 5).Value <> 1 Then
For e = 1 To 302057
If f <> e Then
If Cells(f, 4).Value = Cells(e, 4).Value Then
Cells(f, 4).Interior.ColorIndex = 4
Cells(e, 4).Interior.ColorIndex = 3
Cells(e, 22).Value = 1
End If
End If
Next
End If
Next

End Sub

[motorway]

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

[EducatedFool]

Надо макрос "с нуля" переписывать
При таких объёмах данных перебирать ячейки - макрос будет работать ОЧЕНЬ долго...

Нужен пример файла (не 300 тыс строк, а поменьше - 300 или 3000 строк достаточно),
и подробное описание, что должен делать макрос.