Страницы: 1
RSS
Макрос. Суммирование уникальных значений по нескольким параметрам.
 
Добрый день.
У меня появилась проблема небольшая, т.к. я еще только в процессе освоения VBA,  Не получается посчитать сумму значений, подстановка формулы  =СУММЕСЛИМН() в VBA не дает нужного результата, т.к. не чувствительна к регистру.

Пример с макросом, который извлекает униальные значения во вложении.
Если у кого-нибудь есть возможность помочь мне с решением проблемы на основе этого макроса либо другого рабочего примера, заранее огромное спасибо!
 
Я предложу более простой вариант извлечения уникальных:
Код
Sub uniq()
    Range("A1:C34").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets(2).Range( _
        "G1:I1"), Unique:=True
Sheets(2).Range("G1:I1") = [{"Дата","Полдень","Признак"}]
End Sub
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Владимир, большое спасибо, а можете еще помочь с суммированием ?
 
lev_y, название темы должно отражать суть задачи, а не путь ее решения. Иначе другие варианты не предложат.
Предлагайте. Модераторы заменят.
 
Ответ прямо по названию темы: Application.WorksheetFunction.SumIfs
 
Код
Изменено: Владимир - 19.04.2017 13:18:56
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
vikttur, ответ по интересующему вопросу получил, на будущее учту, спасибо)

Владимир, огромное спасибо!
 
Не хотите? Значит, Владимир предложит. Пускай он вместо Вас отдувается (такая вот благодарность за помощь).
 
Макрос. Суммирование уникальных значений по нескольким параметрам.
Изменено: Владимир - 19.04.2017 12:52:28
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Страницы: 1
Наверх