作者tina1688 ()
看板Office
标题多列合并一列&合并各别栏位内容
时间Fri May 24 14:08:15 2019
各位大大
请教如何用VBA
将多列合并为一列，
判断A栏相同，
将BCD栏合并以「、」串接(内容不重复)
有看别人用Scripting.Dictionary
但不知如何修改
再麻烦大大解析
示意图
https://i.imgur.com/ZMvBt0B.jpg
档案
http://t.cn/E9RkRGL
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 101.9.40.140
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1558678097.A.9F7.html
1F：→ soyoso: 以示意图来看，b栏方面，巢状回圈，外回圈於f2:f4。 05/24 14:49
2F：→ soyoso: 内回圈看是1.判断a2:a8是否於f2:f4相同，2.或是a栏range. 05/24 14:49
3F：→ soyoso: find搜寻f2:f4。 05/24 14:49
4F：→ soyoso: 接着dictionary b2:b8的值是否已存在exists，不存在就新增 05/24 14:49
5F：→ soyoso: add。 05/24 14:49
6F：→ soyoso: c2:c8方面有写到c栏为唯一值，所以就以一个变数来连接&字 05/24 14:49
7F：→ soyoso: 串 05/24 14:49
8F：→ soyoso: 每当内回圈执行完毕後，代码方面将dictionary的项目items 05/24 14:49
9F：→ soyoso: 以join来合并，合并字元就以内文所写的"、"，那序号方面则 05/24 14:49
10F：→ soyoso: 将变数写入(这方面要要连接时是否就有加上"、"来合并，有 05/24 14:49
11F：→ soyoso: 的话配合mid) 05/24 14:49
12F：→ soyoso: d栏不确定逻辑是什麽，因为编号A01有产品别A01ac和A01a， 05/24 14:50
13F：→ soyoso: 但只有要写入A01ac。 05/24 14:50
14F：→ soyoso: 补充，dictionary要移除所有项目的话，removeall；变数(字 05/24 14:57
15F：→ soyoso: 串型态)则是再写入空字串"" 05/24 14:58
16F：→ tina1688: 大大谢谢，有点难，我来好好研究一下@@ 05/24 18:59