Страницы: 1
RSS
Сортировка и подсчет количества повторяющихся данных, Формула работает не правильно, помогите пож-ста...
 
Доброго времени суток друзья.
Сижу ковыряю таблицу, в Excell не сильно разбираюсь по части формул, прошу помощи гуру в этом деле...
Задача отсортировать номера картриджей с одной страницы (они дублируются, т.к. кол-во одинаковых принтеров много) и в столбце на против посчитать количество одинаковых картриджей.
Формулу я вроде сваял, сортирует и считает, но проблема в том что откуда-то взялся 0, не пойму от куда! Все облазил, не нашел. Может вы разберетесь от куда он...
Вторая проблема - когда копируешь формулу в столбце С, он пишет какие-то не относящиеся к делу числа, в примере я специально их оставил.
Помогите пож-ста други дать ума до конца этому делу, сам уже всю голову сломал.
Файл прикрепляю.
 
Может так?
 
memo, спасибо вам огромное! Вы мне очень помогли!
 
При активном листе PRINTER запустить макрос
Код
Sub DelDublCartrid()
Dim i As Long
Dim iLastRow As Long
Dim dict As Object
    iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Set dict = CreateObject("Scripting.Dictionary")
   Range("D1:E" & iLastRow).ClearContents
   Range("D1") = "Картридж"
   Range("E1") = "Количество"
 For i = 2 To iLastRow
   If Cells(i, "A") <> "" Then
     dict.Item(CStr(Cells(i, "A"))) = dict.Item(CStr(Cells(i, "A"))) + 1
   End If
 Next
   Range("D2").Resize(dict.Count, 2) = Application.Transpose(Array(dict.Keys, dict.Items))
End Sub

Результат в столбцах D и E
Страницы: 1
Наверх