Поиск одинаковых значений в столбце - VBA (49127)

Формулировка задачи:

Товарищи, помогите пожалуйста. Есть таблица, в которой столбец "Наименование" содержит одинаковые значения. Имеется столбец "Количество". Необходимо: 1) Найти все одинаковые значения в столбце "Наименование" и сравнить одинаковые значения со значением в столбце "количество". Если значения столбца количество во всех одинаковых строках столбца "Наименование" равны, то скопировать шапку и эти строки на отдельные лист

Решение задачи: «Поиск одинаковых значений в столбце»

textual
                            Листинг программы 
                        

                            Sub DelReply()
    Dim c&(), rn As Range
    With ActiveSheet
        a = .UsedRange
        k = .UsedRange.Columns.Count + 1
        .Copy
    End With
    ReDim c(1 To UBound(a, 1), 1 To 1)
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(a)
            t = a(i, 1) & a(i, 2)
            If .exists(t) Then
                c(i, 1) = 1
                c(.Item(t), 1) = 1
            Else
                .Item(t) = i
            End If
        Next
    End With
    Cells(1, k).Resize(UBound(c), 1) = c
    Set rn = Range(Cells(1, k), Cells(1, k))
    Columns(k).ColumnDifferences(rn).EntireRow.Delete
    Columns(k).Delete
End Sub
                        