請問如何將指定列位的資料用macros按區分名字合併在一起

pcwh3

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

Hsieh

回復 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

回復 2# Hsieh


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