окрасить дубликаты

[Romuald]

Всем добрый день!
Пользуюсь макросом для окраски дубликатов , но появилась необходимость окрасить дубликаты в колонке B , но в ней много пустых ячеек. Ячейки должны оставаться пустыми, а вот дубликаты надо окрасить. Помогите, пожалуйста
Заранее благодарю
Рома

[SAS888]

Можно так:

Sub Main()
    Dim i As Long, j As Integer, cell As Range, x As Range
    With Application
        .FindFormat.Clear: .ReplaceFormat.Clear: .ScreenUpdating = False
        Set x = Range([B2], Cells(Rows.Count, 2).End(xlUp)): j = 3
        For Each cell In x
            If cell <> "" Then
                If .CountIf(x, cell) > 1 Then
                    .ReplaceFormat.Interior.ColorIndex = j
                    .[B:B].Replace cell, cell, , , , , , True
                    j = IIf(j = 56, 3, j + 1)
    End If: End If: Next: End With
End Sub

Пример во вложении.

[IgorGO]

окрасил в желтый

[SAS888]

Для корректной работы, нужно добавить предварительное "обесцвечивание" столбца "B". А если еще добавить проверку того, что текущая ячейка уже окрашена, то время выполнения макроса существенно уменьшится. Т.е. так:

Sub Main()
    Dim i As Long, j As Integer, cell As Range, x As Range
    With Application
        .FindFormat.Clear: .ReplaceFormat.Clear: .ScreenUpdating = False
        Set x = Range([B2], Cells(Rows.Count, 2).End(xlUp))
        x.Interior.ColorIndex = xlNone: j = 3
        For Each cell In x
            If cell <> "" Then
                If cell.Interior.ColorIndex < 0 Then
                    If .CountIf(x, cell) > 1 Then
                        .ReplaceFormat.Interior.ColorIndex = j
                        .[B:B].Replace cell, cell, , , , , , True
                        j = IIf(j = 18, 3, j + 1)
    End If: End If: End If: Next: End With
End Sub

P.S. To IgorGO: я так понял, что разные дубликаты требуется окрасить в разные цвета.
P.P.S. Преимуществом предлагаемого способа является то, что все дубликаты окрашиваются "разом", сколько бы их не было.

[IgorGO]

ну... в разные - это только макросом
главное теперь - чтобы количество совпадений не превысило количество цветов)))

[Romuald]

SAS888 и IgorGo
Спасибо Вам Огромное!!!!!!!!!!!!!!!!