[算表]VBA多列合并一列&合并各别字段内容

楼主: tina1688   2019-05-24 14:08:15
各位大大
请教如何用VBA
将多列合并为一列,
判断A栏相同,
将BCD栏合并以“、”串接(内容不重复)
有看别人用Scripting.Dictionary
但不知如何修改
再麻烦大大解析
示意图
https://i.imgur.com/ZMvBt0B.jpg
档案
http://t.cn/E9RkRGL
作者: soyoso (我是耀宗)   2019-05-24 14:49:00
以示意图来看,b栏方面,巢状循环,外循环于f2:f4。内循环看是1.判断a2:a8是否于f2:f4相同,2.或是a栏range.find搜寻f2:f4。接着dictionary b2:b8的值是否已存在exists,不存在就新增add。c2:c8方面有写到c栏为唯一值,所以就以一个变量来连接&字串每当内循环执行完毕后,代码方面将dictionary的项目items以join来合并,合并字符就以内文所写的"、",那序号方面则将变量写入(这方面要要连接时是否就有加上"、"来合并,有的话配合mid)d栏不确定逻辑是什么,因为编号A01有产品别A01ac和A01a,但只有要写入A01ac。补充,dictionary要移除所有项目的话,removeall;变量(字串型态)则是再写入空字串""
楼主: tina1688   2019-05-24 18:59:00
大大谢谢,有点难,我来好好研究一下@@

Links booklink

Contact Us: admin [ a t ] ucptt.com