Hsieh

¦^´_ 1# jasonwilliams

1. Sub Ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([C1], [C65536].End(xlUp))
   
4.    If d.exists(a.Value) = False Then
   
5.       d(a.Value) = Array(a.Offset(, -2).Value, a.Offset(, -1).Value, a.Value, a.Offset(, 1).Value)
   
6.       Else
   
7.       ar = d(a.Value)
   
8.       ar(3) = ar(3) + a.Offset(, 1).Value
   
9.       d(a.Value) = ar
   
10.     End If
    
11. Next
    
12. Columns("A:D") = ""
    
13. [A1].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# jasonwilliams

1. Private Sub CommandButton2_Click()
   
2. '³o¸Ì´¡¤J§A¿ý»sªº°Ï¬q
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For Each a In Range([C1], [C65536].End(xlUp))
   
5.    If d.exists(a.Value) = False Then
   
6.       d(a.Value) = Array(a.Offset(, -2).Value, a.Offset(, -1).Value, a.Value, a.Offset(, 1).Value)
   
7.       Else
   
8.       ar = d(a.Value)
   
9.       ar(3) = ar(3) + a.Offset(, 1).Value
   
10.       d(a.Value) = ar
    
11.     End If
    
12. Next
    
13. Columns("A:D") = ""
    
14. [A1].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))
    
15. End Sub

½Æ»s¥N½X

²M°£³¡¥÷
Cells.Clear
§Y¥i

Hsieh

¦^´_ 7# jasonwilliams


    ½Ð°Ñ¾\VBA»¡©úOFFSET
·í¦bBÄæ§@Åܼưj°é®Éa.offset(,-2)´N·|²£¥Í¿ù»~