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

Вход

Регистрация

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

 

= Мир MS Excel/Сложение одинаковых ников и суммы чисел. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
 
Ответить
СообщениеДоброй ночи.

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

ИМЯ СУММА

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

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

Вот так :

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

Автор - Eko
Дата добавления - 15.04.2016 в 22:36
Pelena Дата: Пятница, 15.04.2016, 22:41 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9869
Репутация: 2263 ±
Замечаний: 0% ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеСводной таблицей можно.
Подробнее при наличии файла с примером

Автор - Pelena
Дата добавления - 15.04.2016 в 22:41
Eko Дата: Пятница, 15.04.2016, 22:50 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

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


Сообщение отредактировал Serge_007 - Пятница, 15.04.2016, 23:43
 
Ответить
СообщениеНе подходит данный способ.
Консолидацией не подскажешь , как сделать это?

Автор - Eko
Дата добавления - 15.04.2016 в 22:50
sv2014 Дата: Пятница, 15.04.2016, 23:26 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 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]
К сообщению приложен файл: example_16_04_2.xls(40Kb)
 
Ответить
Сообщение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]

Автор - sv2014
Дата добавления - 15.04.2016 в 23:26
pabchek Дата: Пятница, 15.04.2016, 23:31 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 645
Репутация: 145 ±
Замечаний: 0% ±

Excel 2007
Лена такая добрая нонче


"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеЛена такая добрая нонче

Автор - pabchek
Дата добавления - 15.04.2016 в 23:31
Pelena Дата: Суббота, 16.04.2016, 07:45 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 9869
Репутация: 2263 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Не подходит данный способ

Можно узнать, почему?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
Не подходит данный способ

Можно узнать, почему?

Автор - Pelena
Дата добавления - 16.04.2016 в 07:45
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сложение одинаковых ников и суммы чисел. (Формулы/Formulas)
Страница 1 из 11
Поиск:

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