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...功能（也在2003年的Data菜单下）也应该可以使用。