ML089

1. Sub ex()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     ar = Array(Array("AA", "yes", "Cr", 111, 222), _
   
4.                Array("BB", "No", "Dr", 333, 444), _
   
5.                Array("CC", "yes", "Bl", 111, 222), _
   
6.                Array("AA", "yes", "Cr", 222, 333), _
   
7.                Array("CC", "yes", "Bl", 333, 555), _
   
8.                Array("CC", "yes", "Bl", 222, 111), _
   
9.                Array("BB", "No", "Dr", 444, 222))
   
10. 
    
11.     For i = LBound(ar) To UBound(ar)
    
12.         If Not d.exists(ar(i)(0)) Then
    
13.             d(ar(i)(0)) = ar(i)
    
14.         Else
    
15.             a = d(ar(i)(0))
    
16.             a(3) = a(3) + ar(i)(3)
    
17.             a(4) = a(4) + ar(i)(4)
    
18.             d(ar(i)(0)) = a
    
19.         End If
    
20.     Next
    
21.     [a1].Resize(7, 5) = Application.Transpose(Application.Transpose(ar))
    
22.     [a9].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.Items))
    
23. End Sub

½Æ»s¥N½X