Суммирование значений в объединенной ячейке

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

Суммирование значений в объединенной ячейке (Формулы/Formulas)

aromatov

Дата: Суббота, 04.03.2017, 23:56 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2003

Помогите разобраться с суммированием соседних ячеек в объединенную.
Весь справочник перечитал и ничего не нашел.
Пример как хотелось бы что бы в итоге было, выложил в файле.
Может есть какая формула или на крайний случай макрос?

За раннее спасибо за помощь.

К сообщению приложен файл: 3958262.xls (24.0 Kb)

Сообщение отредактировал aromatov - Суббота, 04.03.2017, 23:57

Ответить

gling

Дата: Воскресенье, 05.03.2017, 00:08 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2641

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

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

2010

Не понятно,что надо ть?
Каким образом объединяете ячейки? При объединении пишите там формулу СУММ(диапазон). Или у вас выгрузка происходит с объединенными ячейками? И почему все названия одинаковые, в группах они одинаковые или разные?

ЯД-41001506838083

Ответить

Nic70y

Дата: Воскресенье, 05.03.2017, 21:11 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9130

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

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

Excel 2010

в строке 13 ошибка

Код

=СУММ(ИНДЕКС(B:B;СТРОКА()):ИНДЕКС(B:B;ЕСЛИОШИБКА(СУММПРОИЗВ(НАИМЕНЬШИЙ((D3:D$16<>"")*СТРОКА(D3:D$16);СЧЁТЕСЛИ(D3:D$16;"")+1))-1;16)))

перестарался, так

Код

=СУММ(B2:ИНДЕКС(B:B;ЕСЛИОШИБКА(СУММПРОИЗВ(НАИМЕНЬШИЙ((D3:D$16<>"")*СТРОКА(D3:D$16);СЧЁТЕСЛИ(D3:D$16;"")+1))-1;16)))

ой, не, 2003 жеж

Код

=СУММ(B2:ИНДЕКС(B:B;ЕСЛИ(СУММ(D3:D$16)=0;16;СУММПРОИЗВ(НАИМЕНЬШИЙ((D3:D$16<>"")*СТРОКА(D3:D$16);СЧЁТЕСЛИ(D3:D$16;"")+1))-1)))

ну ночь была - фигни понаписал

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 06.03.2017, 07:52

Ответить

Wasilich

Дата: Воскресенье, 05.03.2017, 22:42 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

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

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

2003

Простенький такой, макрос. Не пойдет?

[vba]

Код

Sub www()
  Dim i&, s&
  For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
    If Cells(i, 4).MergeCells = True Then
      s = Cells(i, 4).MergeArea.Rows.Count
      Cells(i, 4) = WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i + s - 1, 2)))
      i = i + s - 1
    Else
      Cells(i, 4) = Cells(i, 2)
    End If
  Next
End Sub

[/vba]

Ответить

_Boroda_

Дата: Понедельник, 06.03.2017, 03:19 | Сообщение № 5

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Выделяете ячейки D2:D15, в верхнюю вводите формулу

Код

=СУММ(B2:B$15)-СУММ(D3:D$15)

и жмете Контрл Ентер

К сообщению приложен файл: 3958262_1.xls (29.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Pelena

Дата: Понедельник, 06.03.2017, 09:33 | Сообщение № 6

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

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

Сообщений: 19511

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

Замечаний: ±

Excel 365 & Mac Excel

Саш, красиво! respect

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

Ответить

_Boroda_

Дата: Понедельник, 06.03.2017, 09:57 | Сообщение № 7

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Лен, спасибо. Такая рекурсия формулами меня тоже очень радует. На больших объемах расчет дольше, зато формула компактная
Кстати, еще вот такой вариант

Код

=СУММПРОИЗВ(B2:B$17-D3:D$18)

К сообщению приложен файл: 3958262_2.xls (25.5 Kb)

Ответить

Суммирование значений в объединенной ячейке (Формулы/Formulas)

Страница 1 из 1
1