Сложение одинаковых ников и суммы чисел.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сложение одинаковых ников и суммы чисел. (Формулы/Formulas)

Eko

Дата: Пятница, 15.04.2016, 22:36 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Доброй ночи.

Есть два столбика :

ИМЯ СУММА

ВАСЯ 3
ПЕТЯ 4
ВОВА 5
ВАСЯ 1

Что мне нужно сделать, чтобы имя ВАСЯ стало в одну строку, и сумма из второго числа сложилась?

Вот так :

ИМЯ СУММА
ВАСЯ 4 было 3 и 1 - две строки, 3+1 = 4
ПЕТЯ 4
ВОВА 5

Сообщение отредактировал Eko - Пятница, 15.04.2016, 22:37

Ответить

Pelena

Дата: Пятница, 15.04.2016, 22:41 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19181

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Сводной таблицей можно.
Подробнее при наличии файла с примером

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Eko

Дата: Пятница, 15.04.2016, 22:50 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Не подходит данный способ.
Консолидацией не подскажешь , как сделать это?

Сообщение отредактировал Serge_007 - Пятница, 15.04.2016, 23:43

Ответить

sv2014

Дата: Пятница, 15.04.2016, 23:26 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

Eko, вариант макроса кнопки test и очистка

[vba]

Код

Sub test()
    Dim z, i&, j&, m&
    z = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For i = 1 To UBound(z)
         If .exists(z(i, 1)) = False Then
         m = m + 1: .Item(z(i, 1)) = m: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
         Else
         z(.Item(z(i, 1)), UBound(z, 2)) = z(.Item(z(i, 1)), UBound(z, 2)) + z(i, UBound(z, 2))
         End If
     Next
    Range("D1").Resize(.Count, UBound(z, 2)).Value = z
   End With
End Sub

[/vba]