Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Просуммировать ячейки по критерию (аналог SUM() в group by) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Просуммировать ячейки по критерию (аналог SUM() в group by) (Макросы/Sub)
Просуммировать ячейки по критерию (аналог SUM() в group by)
vasilek7777 Дата: Воскресенье, 01.07.2018, 23:29 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый вечер!
Подскажите пожалуйста, каким образом можно просуммировать значения в повторяющихся ячейках (VBA).

Пример:
Вася 500
Ирина 200
Кирилл 100
Вася 300
Кирилл 200
________________
Итог:
Вася 800
Ирина 200
Кирилл 300
 
Ответить
СообщениеДобрый вечер!
Подскажите пожалуйста, каким образом можно просуммировать значения в повторяющихся ячейках (VBA).

Пример:
Вася 500
Ирина 200
Кирилл 100
Вася 300
Кирилл 200
________________
Итог:
Вася 800
Ирина 200
Кирилл 300

Автор - vasilek7777
Дата добавления - 01.07.2018 в 23:29
RAN Дата: Воскресенье, 01.07.2018, 23:36 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4831
Репутация: 968 ±
Замечаний: 0% ±

2010
Как вариант - написать макрос.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКак вариант - написать макрос.

Автор - RAN
Дата добавления - 01.07.2018 в 23:36
vasilek7777 Дата: Воскресенье, 01.07.2018, 23:39 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
А можно пример макроса?
Я думала функцией VBA можно обойтись...
%)
 
Ответить
СообщениеА можно пример макроса?
Я думала функцией VBA можно обойтись...
%)

Автор - vasilek7777
Дата добавления - 01.07.2018 в 23:39
Kuzmich Дата: Воскресенье, 01.07.2018, 23:52 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 379
Репутация: 74 ±
Замечаний: 0% ±

Excel 2003
Цитата
А можно пример макроса?

Имена в столбце А, суммы в столбце В
[vba]
Код
Sub iSumName()
Dim dic As Object
Dim i&
  Set dic = CreateObject("scripting.dictionary")
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
      dic.Item(CStr(Cells(i, "A"))) = dic.Item(CStr(Cells(i, "A"))) + Cells(i, "B")
    Next i
      Range("C1").Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.Items))
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
А можно пример макроса?

Имена в столбце А, суммы в столбце В
[vba]
Код
Sub iSumName()
Dim dic As Object
Dim i&
  Set dic = CreateObject("scripting.dictionary")
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
      dic.Item(CStr(Cells(i, "A"))) = dic.Item(CStr(Cells(i, "A"))) + Cells(i, "B")
    Next i
      Range("C1").Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.Items))
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 01.07.2018 в 23:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Просуммировать ячейки по критерию (аналог SUM() в group by) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!