Hsieh

¦^´_ 1# terrykyo520

1. Sub ex()
   
2. Dim A As Range
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each A In Range([B1], [B1].End(xlDown))
   
5. If d.exists(A & A.Offset(, 1)) = False Then d(A & A.Offset(, 1)) = A.Offset(, -1).Resize(, 3).Value
   
6. Next
   
7. [A:C].ClearContents
   
8. [A1].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
   
9. End Sub

½Æ»s¥N½X