合并同类项问题，欢迎交流

gtwlren

合并同类项问题，欢迎交流，见附件

gtwlren

1、遍历所有行；
2、计算[销售合同号-规格型号（key1）](以下简称[key1])有几个不同的重复值（重复个数）和分别重复几次（重复次数）；
3、复制全部重复行（重复个数*重复次数），使重复行的[数量]*-1；
4、复制重复记录中[key1]第一次出现的记录，或者复制重复记录中任一条记录（按重复个数复制[key1]不同的值），使数量=本[key1]重复记录中的数量和，行号=本[key1]重复记录中[key1]第一次出现的记录的行号，现汇单价=(本[key1]重复记录中所有[数量]*本[key1]重复记录中所有[现汇单价])/本[key1]重复记录中的所有数量之和。

gtwlren

思路大致是这样的，就是VBA还没学会。