標題: 請問如何將指定列位的資料用macros按區分名字合併在一起 [打印本頁]

---

作者: pcwh3    時間: 2011-11-10 19:03     標題: 請問如何將指定列位的資料用macros按區分名字合併在一起

如附件, 請幫忙一下, 謝謝.

---

作者: Hsieh    時間: 2011-11-10 21:49

回復 1# pcwh3

1. Sub combinelotno()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([K2], [K2].End(xlDown))
   
4.    If d(a.Value) = "" Then
   
5.       d(a.Value) = a.Offset(, -8)
   
6.       Else
   
7.       d(a.Value) = d(a.Value) & "," & a.Offset(, -8)
   
8.     End If
   
9. Next
   
10. [L:N] = ""
    
11. [L2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
12. [M2].Resize(d.Count, 1) = Application.Transpose(d.items)
    
13. End Sub

複製代碼

---

作者: pcwh3    時間: 2011-11-10 23:16

回復 2# Hsieh


多謝大大, 運行過, 正是所需.
但看了很久都不太明白寫法, 可否講解一下, 以便日後可以演化, 謝謝.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)