求助用VBA使相同物料自动归并，其他列相加或者保持不变

wotengni414

wodewan

有PQ的话就用PQ吧，方便的很，基本都图形化操作，还自动更新，就分个组，改个{"Po号", each Text.Combine([Po号],"\"), type text}。
另外，更新个VBA的方式，附件VBA，PQ两种方式供参考。

bobfifth

这种按列求和汇总用数据透视表很容易。附件。
在汇总1中生成透视表。
添加商品料号列为行标签
添加数量，金额，毛重净重为数值求和项。
在G列用自定义函数=collectPO(rng As Range)算出PO单号汇集。
基本可以算出所有需要计算的了，再复制到另一个新表，把几个
固定值的列插入填充好，就成了你要的汇总表。

ps: 试了下用纯过程实现，发现麻烦，也就是遍历循环。放弃了。
透视表有时候快速方便解决问题。

wotengni414

bobfifth 发表于 2019-12-15 13:24
这种按列求和汇总用数据透视表很容易。附件。
在汇总1中生成透视表。
添加商品料号列为行标签

谢谢                  

wotengni414

朱荣兴 发表于 2019-12-15 13:25
一个数组十字典的典型案例，以料号作为字典关键字即可

主要是归并求和，不知道怎么处理

Yalishanda30

wotengni414 发表于 2019-12-15 14:31
谢谢

附件供参考

wotengni414

Yalishanda30 发表于 2019-12-15 15:15
附件供参考

谢谢，基本上已经解决了

WatchChen

3楼正解，用dic.exists这个方法，过滤一遍，key可以用po+料号，item记录行数（位置），最后用行号写入相同，arr输出即可

拼音佳佳

bobfifth 发表于 2019-12-15 13:24
这种按列求和汇总用数据透视表很容易。附件。
在汇总1中生成透视表。
添加商品料号列为行标签

最好当然是几种方法都掌握,可以互通增强,一条路不通,还有另一条路.我感觉自己现在就是每条路都能走通的人,不知道算不算高手