lpk187

¦^´_ 1# ashan0418


    ¸Õ¸Õ¡I¡I

1. Sub ¥¨¶°1()
   
2. Dim arr1(1 To 10, 1 To 2)
   
3. Set la = Cells(Rows.Count, "a").End(xlUp)
   
4. arr = Range([A2], la)
   
5. 
   
6. For i = 1 To la.Row - 1
   
7.     For J = 1 To UBound(arr1)
   
8.         x = arr(i, 1): y = arr1(J, 1)
   
9.         If arr(i, 1) = arr1(J, 1) Then
   
10.             arr1(J, 2) = arr1(J, 2) + 1
    
11.             GoTo 100
    
12.         End If
    
13.     Next J
    
14.         K = K + 1
    
15.         arr1(K, 1) = arr(i, 1)
    
16.         arr1(K, 2) = arr1(K, 2) + 1
    
17. 100:
    
18. Next i
    
19. ¤u§@ªí2.[A2].Resize(K, 2) = (arr1)
    
20. ¤u§@ªí2.Range("A" & K + 2) = "¦X­p"
    
21. aaa = Application.Sum(¤u§@ªí2.Range("B2:B" & K + 1))
    
22. ¤u§@ªí2.Range("B" & K + 2) = Application.Sum(¤u§@ªí2.Range("B2:B" & K + 1))
    
23. End Sub

½Æ»s¥N½X