Фильтр и групповой VBA

Question

У меня есть данные, которые выглядят следующим образом:

date          Product    Result
31-12-2017    abc 1234 
21-01-2018    def 1234
31-12-2017    abc 5678
21-01-2018    xyz 5678

Я хочу отфильтровать каждую дату и посчитать количество появлений первой строки в Product, например: для date 31-12-2017строка abc повторяется дважды.Мой ожидаемый результат будет поставить столбец с указанием, если появления являются единичными или множественными.Пример ниже:

date          Product    Result
31-12-2017    abc 1234   Multiple
21-01-2018    def 1234   Single
31-12-2017    abc 5678   Multiple
21-01-2018    xyz 5678   Single

ниже - это то, чего я добился до сих пор, ссылаясь на SO:

Sub Filter_count()
Dim item As Variant
With ThisWorkbook.Sheets("Sheet1")

    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    uniquesArray = .Range("A2:A" & lastrow)

        For Each item In uniquesArray
            ActiveSheet.Range("$A:$A").AutoFilter Field:=1, Criteria1:=item

            'Do Something


        Next

Я могу фильтровать по дате, но не знаю, как поступить дальше.Я в порядке и для совершенно другого решения.:)

Заранее спасибо.

Answer 1

совершенно другое решение

Предполагается, что date находится в A1, анализируется Product в пространстве и в D2 и копируется:

 =IF(COUNTIFS(A:A,A2,B:B,B2)=1,"Single","Multiple")