Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 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 Апр 2017 13:18:56
« Скажи мне так, чтоб я тебя увидел »
 
vikttur, ответ по интересующему вопросу получил, на будущее учту, спасибо)

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