Excel выборка с сумированием

[Lionzi]

Здравствуйте, прошу помоши.

Необходимо сделать выборку по столбцу kod, при соответствии значения заданному происходит суммирование из столбца sum но только по tabn, т.е. примерно:
если kod = 35 или 6 или 19 то сумма по tabn = (748,32+2356+1388), а остальные значения игнорируются.
При этом надо прсчитывать каждый различный tabn.

A; B; C; D;
TABN; NAME; KOD; SUM;
5; БЕЛЫХ С.И.; 35; 748,32;
5; БЕЛЫХ С.И.; 6; 2356,00;
5; БЕЛЫХ С.И.; 19; 1388,00;
5; БЕЛЫХ С.И.; 32; 1044,00;
5; БЕЛЫХ С.И. ; 80; 1005,30;
6; БУЛАНКИН В.В.; 72; 1000,00;
6; БУЛАНКИН В.В.; 32; 1618,00;
7; БЕКЛЕМЫШЕВ; 56; 837,92;
7; БЕКЛЕМЫШЕВ; 4; 2300,00;
9; ДЕГТЕВ А.В. ; 4; 1231,79;
9; ДЕГТЕВ А.В. ; 6; 1273,00;
9; ДЕГТЕВ А.В. ; 72; 800,00;
9; ДЕГТЕВ А.В.; 90; 0,87;

PS: В качестве разделителя использовал ";" т.к. пробелы, табулы исчезают.

Заранее благодарен, Александр.

[uhm]

Можно обойтись встроенными средствами Excel - вставить еще один столбец, в котором будет стоять 1, если строку нужно суммировать и 0, если не нужно. Потом использовать либо функцию СУММЕСЛИ, либо СУММПРОИЗВ.

[Lionzi]

проше говоря получится

Код: Выделить всё

=ЕСЛИ(A:A=5;СУММЕСЛИ(F:F;1;D:D);0)

Проблема в том, что для каждого TABN нужно получить свою сумму по нужным KOD, если просто прописывать СУММЕСЛИ то прийдется писать все 7000 раз, что не есть гуд. Потом, TABN могут добавляться или убираться.

Да, таблица экспортируется из другой программы, т.е. прописать автоматическое добавление формулы не предоставляется возможным.

[alibek]

Можно еще проще -- сводная таблица.

[Lionzi]

А как в сводной таблице задать условие, суммировать только нужные мне KOD?

[alibek]

Задать фильтр.

[Lionzi]

Чувствую себя дураком.
Так, вроде разобрался со сводной таблицей получилось следущее:
в первой строке считает итоговую сумму
ниже показывает из каких чисел она просчитывается.
Как можно скопировать только итоговые значения в новую таблицу?

[Ser Artur]

А я предложу следующее

Код: Выделить всё

Function sumRangeColor(iObrazets, iDiapazon) As Double
   
iColor = iObrazets.Interior.ColorIndex

For Each iCell In iDiapazon
    If iCell.Interior.ColorIndex = iColor Then
       If IsNumeric(iCell) = True Then
          sumRangeColor = sumRangeColor + iCell
       End If
    End If
Next

End Function