[µo°Ý] «¬ºA¤£²Å¦X¨D§U

idnoidno

1. Sub ts()
   
2. Dim arr, brr
   
3. Dim i As Long, m As Long
   
4. Dim dic As Object
   
5. 
   
6. Set dic = CreateObject("scripting.dictionary")
   
7. arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
   
8. For i = 1 To UBound(arr)
   
9.     If Not dic.exists(arr(i, 1)) Then
   
10.         dic.Add arr(i, 1), ""
    
11.     Else
    
12.         dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) + 1
    
13.     End If
    
14. Next i
    
15. [c1].Resize(dic.Count) = Application.Transpose(dic.keys)
    
16. [d1].Resize(dic.Count) = Application.Transpose(dic.items)
    
17. Set dic = Nothing
    
18. End Sub

½Æ»s¥N½X

°õ¦æ®É¡Adic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) + 1
¥X²{¿ù»~13¡A«¬ºA¤£²Å¦X°ÝÃD
¥i¥H½Ð±Ð¸ô¹L¬Ý¨ìªº¤j¤j¡A½Ð°Ý°ÝÃD¬O¦b¨º¸Ì©O

Kubi

¦^´_ 1# idnoidno
°j°é¤º§PÂ_¦¡§ï¬°¦p¤U¸Õ¸Õ¬Ý¡G
If Not dic.exists(arr(i, 1)) Then
    dic(arr(i, 1)) = 1
Else
    dic(arr(i, 1)) = dic(arr(i, 1)) + 1
End If

idnoidno

ÁÂÁ±zªº¦^ÂÐ