多列合併一列&合併各別欄位內容

[tina1688 ()]

各位大大


請教如何用VBA
將多列合併為一列，
判斷A欄相同，
將BCD欄合併以「、」串接(內容不重複)
有看別人用Scripting.Dictionary
但不知如何修改
再麻煩大大解析


示意圖
https://i.imgur.com/ZMvBt0B.jpg

檔案
http://t.cn/E9RkRGL



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 101.9.40.140
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1558678097.A.9F7.html
→ soyoso: 以示意圖來看，b欄方面，巢狀迴圈，外迴圈於f2:f4。
→ soyoso: 內迴圈看是1.判斷a2:a8是否於f2:f4相同，2.或是a欄range.
→ soyoso: find搜尋f2:f4。
→ soyoso: 接著dictionary b2:b8的值是否已存在exists，不存在就新增
→ soyoso: add。
→ soyoso: c2:c8方面有寫到c欄為唯一值，所以就以一個變數來連接&字
→ soyoso: 串
→ soyoso: 每當內迴圈執行完畢後，代碼方面將dictionary的項目items
→ soyoso: 以join來合併，合併字元就以內文所寫的"、"，那序號方面則
→ soyoso: 將變數寫入(這方面要要連接時是否就有加上"、"來合併，有
→ soyoso: 的話配合mid)
→ soyoso: d欄不確定邏輯是什麼，因為編號A01有產品別A01ac和A01a，
→ soyoso: 但只有要寫入A01ac。
→ soyoso: 補充，dictionary要移除所有項目的話，removeall；變數(字
→ soyoso: 串型態)則是再寫入空字串""
→ tina1688: 大大謝謝，有點難，我來好好研究一下@@