Поиск цисел и составление отчета

[Solution Machine]

Здравствуйте всем! Помогите решить задачку:

Есть файл "1.xls", в столбце А содержатся значения элементов, в столбцах R, S, T, U, V, W
содержатся значения результатов расчета этих элементов.
Необходимо найти все значения в столбцах R, S, T, U, V, W меньше 1, затем определить номер
элемента в столбце А соответствующего какому либо из значений <1 и разместить в
соответствующей строке файла "1.txt". Главная сложность заключается в том что в столбце A
номера элементов повторяются, а в каждой строке файла "1.txt" номера элементов повторятся
не должны.

Файлы "1.xls" и "1.txt" прилагаю.

[Solution Machine]

Начал сам решать проблэму, как первый шаг выполнил удаление
повторяющихся чисел в столбце А. Нашел на форуме макрос и
маленько его подправил:

Sub Обработка()
    Dim sh As Worksheet: Set sh = ActiveSheet
    Dim cell As Range, ra As Range, i As Double: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
    For i = 1 To 200
        If cell = cell.Offset(i) Then cell.Offset(i) = " "
    Next i
    Next cell
    
End Sub

Смысл в том чтобы в столбце А остались только "оригинальные"
числа (не повторяющиеся).

Однако, процедура получилась длительной может кто знает как
сократить время выполнения операции по удалению повторяющихся чисел?

[Solution Machine]

обновил файлы

[SAS888]

Смысл в том чтобы в столбце А остались только "оригинальные"
числа (не повторяющиеся).
Однако, процедура получилась длительной может кто знает как
сократить время выполнения операции по удалению повторяющихся чисел?

Посмотрите пример во вложении. Запустите макрос "Main". Обратите внимание на время выполнения процедуры.

[0mega]

если Вас не затруднит , то пожалуйста выкладывайте файлы в ZIPe
(некоторые машины имеют только ZIP архиватор)
P.S.
Немного опоздал с ответом
пост был адресован Solution Machine

[Solution Machine]

Спасибо, SAS888, здорово закрутил: процедура "Main" сначала собирает все повторяющиеся числа, а затем удаляет их одним махом, считает молниеносно.