[發問] 依資料庫同名字但不同項目彙整至同一列之方式-VBA

rouber590324

DEAR  ALL 大大
1.SHEET1=資料庫  A欄=料號  B欄=內容  範例如下 -
SHEET1.RANGE("A1")=料號                  SHEET1.RANGE("B1")=內容
SHEET1.RANGE("A2")=S19001A         SHEET1.RANGE("B2")=2B
SHEET1.RANGE("A3")=S19003A         SHEET1.RANGE("B2")=3B
SHEET1.RANGE("A4")=S19001A         SHEET1.RANGE("B2")=6AB
SHEET1.RANGE("A5")=S19003A         SHEET1.RANGE("B2")=5AA
SHEET1.RANGE("A6")=S19001A         SHEET1.RANGE("B2")=10B
SHEET1.RANGE("A7")=S19002A         SHEET1.RANGE("B2")=21B
..................................................................................................................................
2.SHEET2=結果需求如下.依資料庫同名字但不同項目彙整至同一列之方式(內容用 , 區隔) 範例結果如下-
SHEET2.RANGE("A1")=料號                  SHEET2.RANGE("B1")=內容
SHEET1.RANGE("A2")=S19001A         SHEET1.RANGE("B2")= 2B,6AB,10B   
SHEET1.RANGE("A3")=S19003A         SHEET1.RANGE("B3")= 3B,5AA   
SHEET1.RANGE("A4")=S19002A         SHEET1.RANGE("B4")= 21B   
...................................................................................................................................
3.煩不吝賜教   THANKS*10000