кол-во уникальных ячеек

[Kefirrr]

Здравствуйте. Вновь обращаюсь к вам за консультацией. Есть файл, в нем n-колонок, в них y- записей, Мне нужно вывести сообщение о количестве совпадений. К примеру (для данных в прикрепленном файле):
на ЛБ 32 встречается 2 раза, 33 4 раза и т.п. Реально ли это?

Загвоздка состоит в том, что изначально не известно содержание ячеек , и они могут быть разные (т.е. у одного одни, у другого совсем противоположные)

и Возможно ли осуществить выборку по получившимся совпадениям. (к примеру вначале выводится сообщение о кол-ве совпадений, а затем диалоговое окошко спрашивает отфильтровать по первому критерию?)

[kalbasiatka]

Sub Кнопка1_Щелчок()
    Dim a(), i&
    a = Range("A1", Cells(Rows.Count, 2).End(xlUp)).Value
    Set sd = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a)
        sd.Item(a(i, 1) & a(i, 2)) = sd.Item(a(i, 1) & a(i, 2)) + 1
    Next
    For Each key_ In sd.Keys
        If MsgBox("Количество совпадений по " & key_ & " - " & sd.Item(key_) & Chr(10) _
        & "Отфильтровать?", vbYesNo) = vbYes Then
            'тут какие-то манипуляции
        End If
    Next
End Sub

[Kefirrr]

спасибо, все работает.