Суммирование строк по ключу из двух ячеек

[muxa_ua]

Здравствуйте, прошу помощи с такой задачей:
Есть таблица, в которой первые 2 столбца строковые значения, в остальных столбцах - числовые.
Необходимо выбрать из первых двух столбцов таблицы уникальные пары (в примере "Семейство-Вид") а остальные строки сформировать из сумм ячеек из соответствующих этим парам строк.
Заранее благодарю

[27102014]

А в чем у Вас проблема? Третий подобный вопрос на этой неделе
Если у Вас 10 офис, используйте стандартную формулу СУММЕСЛИМН
Для ячейки J2 в Вашем примере это выглядит вот так
=СУММЕСЛИМН(C:C;$A:$A;H3;$B:$B;I3)

К2
=СУММЕСЛИМН(D:D;$A:$A;H3;$B:$B;I3)

L2
=СУММЕСЛИМН(E:E;$A:$A;H3;$B:$B;I3)

[muxa_ua]

Спасибо большое за ответ, но просто пример же очень урезанный, а в оригинальной таблице строк и ячеек в разы больше, по этому хотелось каким-то образом автоматизировать поиск уникальных пар значений в первых двух столбцах, и суммирования в остальных

[27102014]

Тоже никаких проблем - скопируйте столбцы А:В в исходном документе, вставьте в "Как нужно", удалите дубликаты (вкладка Данные - удалить дубликаты - в пределах указанного диапазона), протяните формулы до последнего значения и все готово. И это намного проще чем делать макросом, все займет меньше минуты.
Если с формулой не дружите, возьмите мои, они написаны под Ваш пример - в исходнике сделайте точно также

[Hugo121]

Если не нравится (или нет) СУММЕСЛИМН() - то можно использовать СУММПРОИЗВ()
Ну или макрос можно написать. Форум всёж программистов...

[27102014]

Для макроса подойдет такая конструкция - писал для одного отчета, но в итоге пришли к все той же формуле СУММЕСЛИМН

 'Справочник МВЗ
Cells.Find("МВЗ").Select
ActiveCell.EntireColumn.Select
p = ActiveCell.Column
'J - количество профессий
J = 0
For Each m In Range(Cells(1, p), Cells(10, p))
  If m.Value <> "" Then J = J + 1
Next m

For y = 12 To d 'количество столбцов
   For n = 2 To J Step 1
   mvz = ws.Cells(n, p).Text

       If ws.Cells(15, y).Text Like mvz Then

                For g = 2 To F Step 1
                txt = ws.Cells(g, e).Text
                             For x = 19 To k 'количество строк
                                 If ws.Cells(14, y).Text Like txt Then
                                       ws.Cells(x, 5) = ws.Cells(x, 5) + ws.Cells(x, y)
                                 End If
                             Next x
                
                Next g
                
         End If
    
    Next n
  
Next y

[muxa_ua]

Спасибо огромное, в общем да, пришел к выводу, что проще в ручную отобрать пары, а потом уже выбрать необходимое формулой. Только для "растягивания" формулы нужно добавить знак абсолютного адреса
=СУММЕСЛИМН(D:D;$A:$A;$H3;$B:$B;$I3)
еще раз спасибо, и прошу прощения, за дублирующийся вопрос

[27102014]

Сообщение от muxa_ua

Спасибо огромное, в общем да, пришел к выводу, что проще в ручную отобрать пары, а потом уже выбрать необходимое формулой. Только для "растягивания" формулы нужно добавить знак абсолютного адреса
=СУММЕСЛИМН(D:D;$A:$A;$H3;$B:$B;$I3)
еще раз спасибо, и прошу прощения, за дублирующийся вопрос

Как раз здесь знак не нужен - у Вас во всем отчете не получились одинаковые цифры?

[muxa_ua]

ээм вроде нет, "скользит" же только интервал суммирования, а сравниваемые величины находятся в указанных столбцах, ну вроде я на сводных таблицах проверил - значения сошлись

[27102014]

=СУММЕСЛИМН(D:D;$A:$A;$H3;$B:$B;$I3 )

D:D - диапазон суммирования, в данном случае полностью весь столбец

$A:$A - диапазон условия1

H3 - условие1, как раз оно и должно "скользить" по строчкам


Странно что у Вас все сошлось - все дело в том что Вы не добавили абсолютную ссылку на ячейку Н3 - правильно $H$3

Попробуйте добавить правильную ссылку и ничего не сойдется. А вообще еще лучше проверять общие итоги в обоих таблицах