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;


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

[HandKot]

можно использовать автофильтр
1) устанавливаешь автофильтр
2) устанавливаешь условие tab = 5
3) устанавливаешь условие kod = 35 or kod = 19 or kod =6
и так для любого условия

или как?

[lionzi]

Мне нужно просумировать значения по tabn для 7000 записей.
Впринципе можно создать отдельную таблицу, где будет tabn представлен в единственном числе, а sum уже просумированный.

[HandKot]

ну тогда нужно использовать запрос данных с листа
только возникает вопрос как в нем условие вставить для поля код (если оно меняется от случая к случаю)
запрос примерно так должен выглядеть

SELECT TABN AS [tabn], SUM(SUM) FROM `Лист1$` et WHERE kod = 13 OR kod = 6 OR kod = 19 GROUP BY TABN

запрос расположить в другом листе и выполнить обновление данных
(подробная информация в справке "внешние данные" кажись)

PS: поле "SUM" лучше переименовать в другое, т.к. оно совпадает с зарезервированным словом

[lionzi]

На данный момент я пошел немного другим путем, создал сводную таблицу, где вывел итоги. Возник еще вопрос. получается так, что сначала илет итог по выбранным кодам, ниже перечесляются сами выбранные коды и sum каждого из них, как можно скопировать только итоговую часть т.е. tabn и итог по ней?

[HandKot]

если правильно понял, то скопировать данные и в сделать "Paste Special" (специальная вставка) и выбрать "Значения"

[lionzi]

Он копируется вмести со всеми значениями. а мне надо, чтобы остались только промежуточные итоги.
Наверно прийдется через специальную вставку, а потом делать цикл на проверку.
Я думал есть более простой метод копирования подитогов.

[Ser Artur]

Я Могу предложить другой вариант создать функцию суммирования яйчеек с определённым цветом яйчейки, т,е, в поле  iObrazets выделяешь яйчейку с определённым цветом и в поле iDiapazon диапазон суммирования

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