макрос проверки финансовой позиции

[Romuald]

Всем добрый день!!!
Дорогие форумчане!!!
Очень нужен макрос проверки финансовой позиции!
В колонке "А", начиная со второй строки идут одиннадцатизначные коды, в колонке "К" стоит финансовая позиция. Каждому коду должна соответствовать своя фин.позиция . Если код повторяется , значит и позиция должна быть такой же как и раньше для этого кода
Очень нужен макрос проверки финансовой позиции! Т.Е. выделил бы тегруппы кодов , где одному и тому же коду поставлены разные фин.позиции
Заранее благодарю за помощь
Ромуальд

[SAS888]

Можно, например, так:

Sub Main()
    Dim i As Long, j As Long, x As New Collection, y As Range, a(): On Error Resume Next
    Application.ScreenUpdating = False: [K:K].Interior.ColorIndex = xlNone
    j = Cells(Rows.Count, 1).End(xlUp).Row: a = Range("A2:A" & j).Value
    For i = 1 To UBound(a, 1)
        x.Add a(i, 1), CStr(a(i, 1))
    Next: [A:K].AutoFilter
    For i = 1 To x.Count
        [A:K].AutoFilter Field:=1, Criteria1:=x(i)
        Set y = Range("K2:K" & j).SpecialCells(xlCellTypeVisible)
        If y.Text = y.Cells(1).Text Then Else y.Offset(, -10).Interior.ColorIndex = 6
    Next: [A:K].AutoFilter
End Sub

Пример во вложении. Откройте файл и запустите макрос "Main".

[Romuald]

SAS888 !!!!!
Добрый день!
Спасибо огромное!!!!!!
Рома