oobird

1. Sub Test()
   
2. Dim a, d As Object, i&
   
3. a = Range([A2], [b65536].End(3))
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To UBound(a)
   
6. d(a(i, 1)) = d(a(i, 1)) + a(i, 2)
   
7. Next
   
8. Range([A2], [b65536].End(3)) = ""
   
9. [A2].Resize(d.Count, 1) = Application.Transpose(d.keys)
   
10. [b2].Resize(d.Count, 1) = Application.Transpose(d.items)
    
11. If [A2] = "-" Then [A2:B2].Delete (2)
    
12. End Sub

複製代碼