[µ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

idnoidno

ÁÂÁ±zªº¦^ÂÐ