Sub povtor()
Application.ScreenUpdating = False 'убираем мерцание экрана
Dim temp() As String 'определяем динамический массив чтобы не засорять память
strih = 1            'задаем начальный код штриховки 1-сплошная
i = 1                'первоначальное значение переменной, будет использоваться для номера строки
While Cells(i, 1).Value <> "" 'цикл пока не найдем пустую ячейку складываем инфу в массив
    ReDim Preserve temp(i)    'перенумерация массива с сохранением данных
    temp(i) = Cells(i, 1).Value 'заносим значения в массив
    With Cells(i, 1).Interior   'сбрасываем предыдущие цвета
        .ColorIndex = xlNone
    End With
    i = i + 1
Wend
For j = 1 To UBound(temp) 'цикл поиска повторов
    If temp(j) > "" Then
        For k = j + 1 To UBound(temp) 'второй цикл на сравнение
            If temp(k) = temp(j) Then 'если совпали значения
                temp(k) = "" 'выкидываем повтор чтобы еще раз не учитывать
                With Cells(k, 1).Interior
                    .ColorIndex = 3 + cl 'устанавливаем цвет ячейки с 3 чтобы не было черного и белого
                    If strih = 19 Then
                        MsgBox "Превышен лимит повторов. (данные содержат более 954 различных повторений)", vbCritical
                        Exit Sub
                    End If
                    .Pattern = strih    'задаем штриховку
                End With
                flag = 1                'установка флага для проверки что есть повторы
            End If
        Next
    End If
    If flag = 1 Then                    'если были повторы то на исходную ячейку назначить соотв. цвет
        flag = 0
        With Cells(j, 1).Interior
            .ColorIndex = 3 + cl
            .Pattern = strih
        End With
        cl = cl + 1     'меняем цвет для следующего повтора
        If cl = 53 Then 'боремся с ограничением на количество цветов в Excel введением штриховки
            cl = 1
            stih = strih + 1
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub