Доброго времени суток! Пытаюсь третий день решить задачку - понимаю, что решить функцией наверно не получиться, поэтому прошу совет. В таблице необходимо проанализировать столбец С и К, Р убрать все дубли. На соседний лист нужно вывести список пофамильно: количество уникальных по (С,К) в статусе Выполнено и количество в статусе отличном от Выполнено.
Поискала решение не нашла. Буду благодарна за помощь. файл приложила.
Доброго времени суток! Пытаюсь третий день решить задачку - понимаю, что решить функцией наверно не получиться, поэтому прошу совет. В таблице необходимо проанализировать столбец С и К, Р убрать все дубли. На соседний лист нужно вывести список пофамильно: количество уникальных по (С,К) в статусе Выполнено и количество в статусе отличном от Выполнено.
Поискала решение не нашла. Буду благодарна за помощь. файл приложила.Leksa
на листе 2 у Вас только уникальные по K выписаны, сделала, как в примере. Если номера (столбец С) тоже нужны, добавьте это поле в сводную (просто перетащите в поле названия строк)
Leksa, предложу пока без макросов: сводная таблица. Не очень поняла
на листе 2 у Вас только уникальные по K выписаны, сделала, как в примере. Если номера (столбец С) тоже нужны, добавьте это поле в сводную (просто перетащите в поле названия строк)Manyasha
Manyasha, коряво я наверное объяснила. В итоге в своде я вижу что выполнено у Ивановой 5, но № у 4 записей совпадает - они должны считаться как 1 запись. т.е. фактом сейчас у Ивановой выполнено все два под № 1 и 9.
Manyasha, коряво я наверное объяснила. В итоге в своде я вижу что выполнено у Ивановой 5, но № у 4 записей совпадает - они должны считаться как 1 запись. т.е. фактом сейчас у Ивановой выполнено все два под № 1 и 9.Leksa
StoTisteg, в том то и дело что вроде как вручную можно удалить, потом свод сделать, но файлов будет много и срок обработки очень ограничен. собственно это и натолкнуло на попытку найти решение.
StoTisteg, в том то и дело что вроде как вручную можно удалить, потом свод сделать, но файлов будет много и срок обработки очень ограничен. собственно это и натолкнуло на попытку найти решение.Leksa
выполнено у Ивановой 5, но № у 4 записей совпадает - они должны считаться как 1 запись.
Это с какой стали?! Если 2 из них - в дефиците, а две других... ;) ps У вас XL-2013? Так стройте сводную с добавлением данных в модель данных, и тогда будет возможность считать уникальные номера и пр.
выполнено у Ивановой 5, но № у 4 записей совпадает - они должны считаться как 1 запись.
Это с какой стали?! Если 2 из них - в дефиците, а две других... ;) ps У вас XL-2013? Так стройте сводную с добавлением данных в модель данных, и тогда будет возможность считать уникальные номера и пр.TimSha
Это с какой стали?! Если 2 из них - в дефиците, а две других... ;)
TimSha, в том то и дело что важно посчитать уникальные по столбцам ФИО и № в статусе отличном от Выполненно, не важно что по другим столбцам они не уникальны.
Если я все таки найду как добавлением данных в модель данных в 2013. при открытии в 2010 и 2007 слетит?
Это с какой стали?! Если 2 из них - в дефиците, а две других... ;)
TimSha, в том то и дело что важно посчитать уникальные по столбцам ФИО и № в статусе отличном от Выполненно, не важно что по другим столбцам они не уникальны.
Если я все таки найду как добавлением данных в модель данных в 2013. при открытии в 2010 и 2007 слетит?Leksa
Leksa, раз много файлов, ничего кроме макроса не придумаешь... тогда два вопроса. 1) Исходные данные приходят уже с листом 2 или Вы его просто вписали для примера? 2) Листов с данными в каждой книге один или может быть много?
Leksa, раз много файлов, ничего кроме макроса не придумаешь... тогда два вопроса. 1) Исходные данные приходят уже с листом 2 или Вы его просто вписали для примера? 2) Листов с данными в каждой книге один или может быть много?StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ну можно и макросом, но пока такое извращение получается...
Или я не так понял задачу, или "мсье знает толк в извращениях" лучше, чем я [vba]
Код
Option Explicit Function tt() Dim arr(), Col As Object, I As Long arr = Range("C3:K" & Cells(Rows.Count, "K").End(xlUp).Row) Set Col = CreateObject("Scripting.dictionary") With Col For I = 1 To UBound(arr) If Not .exists(arr(I, 1) & arr(I, 9)) Then .Add Key:=arr(I, 1) & arr(I, 9), Item:=0 Next tt = .Count End With Erase arr: Set Col = Nothing End Function
Ну можно и макросом, но пока такое извращение получается...
Или я не так понял задачу, или "мсье знает толк в извращениях" лучше, чем я [vba]
Код
Option Explicit Function tt() Dim arr(), Col As Object, I As Long arr = Range("C3:K" & Cells(Rows.Count, "K").End(xlUp).Row) Set Col = CreateObject("Scripting.dictionary") With Col For I = 1 To UBound(arr) If Not .exists(arr(I, 1) & arr(I, 9)) Then .Add Key:=arr(I, 1) & arr(I, 9), Item:=0 Next tt = .Count End With Erase arr: Set Col = Nothing End Function