Excel VBA: найти уникальные значения, скопировать текст и скопировать сумму на новый лист

Question

Мне нужна функция VBA, которая будет выполнять следующее:

Найти все уникальные значения на листе 1, столбце «A», скопировать текст из столбца B и столбца C, столбцы суммы от D до G (все суммы должны быть в пределах уникального значения).

Пример:

#   A       B     C  D   E     F   G
--  ------- ----  -  -   ----  -  ---
1.  1110021 Job1  A  0   3000  0  200
2.  1110021 Job1  A  5   3000  0  200
3.  1110021 Job1  A  0   6000  0  200
4.  1110021 Job1  A  0   3000  2  200
5.  2254152 Job2  B  4   3000  1  400
6.  2254152 Job2  B  5   1000  1  400
7.  2254152 Job2  B  1   1000  0  400
8.  2254152 Job2  B  0   1000  0  400
9.  2254152 Job2  B  0   3000  1  400
10. 3054153 Job3  C  7   1000  4  300
11. 3054153 Job3  C  2   3000  4  600
12. 3054153 Job3  C  0   1000  4  400

Результат будет выглядеть примерно так (на листе 2):

1.  1110021 Job1  A  5  15000  2    800
2.  2254152 Job2  B  10  9000  3   2000
3.  3054153 Job3  C  9   5000  12  1300

Может кто-нибудь помочь с этим?

Answer 1

Сводная таблица, как предложил @assylias, сделает это невероятно простым.Перейдите к пункту меню Data и выберите PivotTable and PivotChart Report... (в Excel 2003)

Кроме того, здесь также должна работать функция Subtotals... (также в меню Data в 2003), еслиВаши данные достаточно просты.